login
A087363
Primes whose decimal digits are twin primes.
11
3, 5, 7, 37, 53, 73, 337, 353, 373, 557, 577, 733, 757, 773, 3373, 3533, 3557, 3733, 5333, 5557, 5573, 5737, 7333, 7537, 7573, 7577, 7753, 7757, 33353, 33377, 33533, 33577, 33757, 33773, 35353, 35533, 35537, 35573, 35753, 37337, 37357, 37537
OFFSET
1,1
COMMENTS
Primes whose decimal digits are odd primes. - Omar E. Pol, Dec 02 2008
LINKS
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
Sequence in context: A155034 A126359 A182373 * A234569 A037287 A163797
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