|
|
A261181
|
|
Primes that contain only the digits (0, 7, 9).
|
|
4
|
|
|
7, 79, 97, 709, 797, 907, 977, 997, 7079, 7907, 9007, 9907, 70009, 70079, 70099, 70709, 70979, 70997, 70999, 77797, 77977, 77999, 79777, 79907, 79979, 79997, 79999, 90007, 90709, 90907, 90977, 90997, 97007, 97777, 99079, 99707, 99709, 99907, 700079
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Prime[Range[6 10^4]], Complement[IntegerDigits[#], {0, 7, 9}] == {} &]
|
|
PROG
|
(Magma) [p: p in PrimesUpTo(2*10^5) | Set(Intseq(p)) subset [0, 7, 9]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|