A155024 Primes with distinct nonprime digits.

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

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

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

Juri-Stepan Gerasimov, Jan 19 2009

Extensions

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

Status

approved