A155990 - OEIS

A155990

Numbers prime(k) as k runs through the numbers whose digits are all prime.

3, 5, 11, 17, 79, 83, 97, 103, 131, 137, 149, 157, 239, 241, 257, 269, 359, 367, 379, 389, 1399, 1409, 1427, 1433, 1459, 1471, 1483, 1489, 1601, 1607, 1613, 1621, 1747, 1753, 1777, 1787, 2137, 2141, 2153, 2179, 2237, 2239, 2251, 2269, 2377, 2381, 2389, 2399

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..1000

FORMULA

a(n) = A000040(A046034(n)). - Michel Marcus, Jan 21 2019

MAPLE

isA046034 := proc(n) local d ; d := convert(convert(n, base, 10), set) ; if d intersect {0, 1, 4, 6, 8, 9} = {} then true; else false; fi; end: for n from 1 to 3000 do if isA046034(n) then printf("%d, ", ithprime(n)) ; fi; od: # R. J. Mathar, Feb 10 2009

MATHEMATICA

Prime[#]&/@Select[Range[400], AllTrue[IntegerDigits[#], PrimeQ]&] (* Harvey P. Dale, May 09 2026 *)

CROSSREFS

Cf. A000040, A046034, A141468.

Sequence in context: A101783 A078883 A355901 * A109556 A167675 A277284

Adjacent sequences: A155987 A155988 A155989 * A155991 A155992 A155993

KEYWORD

nonn,base,changed

AUTHOR

Juri-Stepan Gerasimov, Feb 01 2009

EXTENSIONS

Edited by N. J. A. Sloane, Feb 02 2009

149 inserted by R. J. Mathar, Feb 10 2009

STATUS

approved