|
|
A260223
|
|
Primes that contain only the digits (3, 5, 0).
|
|
6
|
|
|
3, 5, 53, 353, 503, 3533, 5003, 5303, 5333, 5503, 30553, 33053, 33353, 33503, 33533, 35053, 35353, 35533, 50033, 50053, 50333, 50503, 53003, 53353, 53503, 55333, 303053, 303553, 305033, 305353, 305533, 330053, 333503, 333533, 335033, 350003, 350033, 350503
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Prime[Range[4 10^4]], Complement[IntegerDigits[#], {3, 5, 0}]=={} &]
Select[FromDigits/@Tuples[{0, 3, 5}, 6], PrimeQ] (* Harvey P. Dale, Jul 19 2019 *)
|
|
PROG
|
(Magma) [p: p in PrimesUpTo(600000) | Set(Intseq(p)) subset [3, 5, 0]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|