|
|
A155024
|
|
Primes with distinct nonprime digits.
|
|
3
|
|
|
19, 41, 61, 89, 109, 149, 401, 409, 419, 461, 491, 601, 619, 641, 691, 809, 941, 1049, 1069, 1409, 1489, 1609, 4019, 4091, 4691, 4801, 4861, 6089, 6091, 6481, 6491, 6841, 8069, 8419, 8461, 8609, 8641, 8941, 9041, 9461, 9601, 14869, 18049, 40169, 40189
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Nonprime digits = 0, 1, 4, 6, 8 and 9.
There are only 153 terms in this sequence, all of which are in the linked b-file. - Harvey P. Dale, Dec 30 2012
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Prime[Range[5000]], Union[PrimeQ[IntegerDigits[#]]] == {False} && Max[ DigitCount[#]]==1&] (* Harvey P. Dale, Dec 30 2012 *)
|
|
PROG
|
(PARI) is(k) = isprime(k) && setintersect([0, 1, 4, 6, 8, 9], v=vecsort(digits(k))) == v; \\ Jinyuan Wang, Mar 27 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,fini,full
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|