|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
easy,nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|