

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 bfile.  Harvey P. Dale, Dec 30 2012


LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..153


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

Cf. A000040, A141468.
Cf. A029743, A034844.  R. J. Mathar, Mar 29 2010
Sequence in context: A019393 A179849 A029489 * A323391 A248339 A133855
Adjacent sequences: A155021 A155022 A155023 * A155025 A155026 A155027


KEYWORD

nonn,base,fini,full


AUTHOR

JuriStepan Gerasimov, Jan 19 2009


EXTENSIONS

Entries checked by R. J. Mathar, Mar 29 2010


STATUS

approved



