|
|
A020464
|
|
Primes that contain digits 3 and 8 only.
|
|
8
|
|
|
3, 83, 383, 883, 3833, 38333, 38833, 83383, 83833, 88883, 333383, 338383, 383833, 3333383, 3383383, 3833833, 3838333, 3838883, 3883333, 3888383, 8338333, 8388833, 8838383, 8838833, 8838883, 8883883, 38383883, 83333333, 83883883, 88838333
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Flatten[Table[Select[FromDigits/@Tuples[{3, 8}, n], PrimeQ], {n, 8}]] (* Vincenzo Librandi, Jul 27 2012 *)
Select[Flatten[Table[10#+3&/@(FromDigits/@Tuples[{3, 8}, n]), {n, 0, 7}]], PrimeQ] (* Harvey P. Dale, Jan 06 2019 *)
|
|
PROG
|
(Magma) [p: p in PrimesUpTo(88838333) | Set(Intseq(p)) subset [3, 8]]; // Vincenzo Librandi, Jul 27 2012
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|