OFFSET
1,1
COMMENTS
Primes whose decimal digits are odd primes. - Omar E. Pol, Dec 02 2008
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Flatten[Table[Select[FromDigits/@Tuples[{3, 5, 7}, n], PrimeQ], {n, 6}]] (* Vincenzo Librandi, Jul 28 2012 *)
PROG
(PARI) pdigitp(n) = { forprime(x=2, n, flag=1; y=x; for(j=1, length(Str(y)), r = y%10; if(r<>3 && r<>5 && r<>7, flag=0); y = floor(y/10); ); if(flag, print1(x", ")); ) }
(Magma) [p: p in PrimesUpTo(60000) | Set(Intseq(p)) subset [3, 5, 7]]; // Vincenzo Librandi, Jul 28 2012
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Cino Hilliard, Oct 21 2003
EXTENSIONS
Corrected by T. D. Noe, Nov 15 2006
Edited by Charles R Greathouse IV, Aug 02 2010
STATUS
approved