A087363 Primes whose decimal digits are twin primes.

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

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

Sequence in context: A155034 A126359 A182373 * A234569 A037287 A163797

Adjacent sequences: A087360 A087361 A087362 * A087364 A087365 A087366

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