|
|
A260378
|
|
Primes that contain only the digits (0, 3, 7).
|
|
6
|
|
|
3, 7, 37, 73, 307, 337, 373, 733, 773, 3037, 3307, 3373, 3733, 7307, 7333, 7703, 30307, 30703, 30707, 30773, 33037, 33073, 33377, 33703, 33773, 37003, 37307, 37337, 70003, 70373, 73037, 73303, 77003, 77377, 77773, 300007, 300073, 300733, 303007, 303073, 303307
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Prime[Range[4 10^4]], Complement[IntegerDigits[#], {0, 3, 7}]=={} &]
|
|
PROG
|
(Magma) [p: p in PrimesUpTo(5*10^5) | Set(Intseq(p)) subset [0, 3, 7]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|