|
|
A261434
|
|
Primes that contain only the digits (0, 3, 8).
|
|
1
|
|
|
3, 83, 383, 883, 3083, 3803, 3833, 8803, 30803, 33083, 38083, 38303, 38333, 38803, 38833, 80803, 80833, 83003, 83383, 83833, 88003, 88883, 303803, 308003, 308303, 308333, 308383, 330383, 333383, 333803, 338033, 338383, 338803, 380333, 380383, 380803, 383083
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Prime[Range[2 10^5]], Complement[IntegerDigits[#], {0, 3, 8}] == {} &]
Select[FromDigits/@Tuples[{0, 3, 8}, 6], PrimeQ] (* Harvey P. Dale, Jul 10 2017 *)
|
|
PROG
|
(Magma) [p: p in PrimesUpTo(2*10^6) | Set(Intseq(p)) subset [0, 3, 8]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|