|
| |
|
|
A046034
|
|
Digits are primes.
|
|
18
| |
|
|
2, 3, 5, 7, 22, 23, 25, 27, 32, 33, 35, 37, 52, 53, 55, 57, 72, 73, 75, 77, 222, 223, 225, 227, 232, 233, 235, 237, 252, 253, 255, 257, 272, 273, 275, 277, 322, 323, 325, 327, 332, 333, 335, 337, 352, 353, 355, 357, 372, 373, 375, 377, 522, 523, 525, 527, 532
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| A055642(a(n)) = A193238(a(n)). [Reinhard Zumkeller, Jul 19 2011]
|
|
|
LINKS
| Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
|
|
|
PROG
| (PARI) primedigits(n) = { local(ln, x, flag, j, y); for(x=2, n, ln=length(Str(x)); y=Vec(Str(x)); flag=0; for(j=1, ln, if(isprime(eval(y[j])), flag=1, flag=0; break) ); if(flag, print1(x", ") ) ) } - Cino Hilliard (hillcino368(AT)gmail.com), Aug 06 2006
(Haskell)
a046034 n = a046034_list !! (n-1)
a046034_list = filter (all (`elem` "2357") . show ) [0..]
-- Reinhard Zumkeller, Jul 19 2011
(MAGMA) [n: n in [2..532] | Set(Intseq(n)) subset [2, 3, 5, 7]]; // Bruno Berselli, Jul 19 2011
|
|
|
CROSSREFS
| Cf. A046035, A118950.
Cf. A019546 (primes), A203263.
Sequence in context: A024769 A085557 A125665 * A062087 A162457 A084983
Adjacent sequences: A046031 A046032 A046033 * A046035 A046036 A046037
|
|
|
KEYWORD
| nonn,base,easy
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com)
|
|
|
EXTENSIONS
| More terms from Cino Hilliard (hillcino368(AT)gmail.com), Aug 06 2006
|
| |
|
|
