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

Author

Juri-Stepan Gerasimov, Jan 19 2009

Keywords

• nonn
• base
• fini
• full

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

Crossrefs

Cf. A000040, A141468.

Cf. A029743, A034844. - R. J. Mathar, Mar 29 2010

Programs

Mathematica

Select[Prime[Range[5000]],Union[PrimeQ[IntegerDigits[#]]] == {False} && Max[ DigitCount[#]]==1&] (* Harvey P. Dale, Dec 30 2012 *)

PARI

is(k) = isprime(k) && setintersect([0, 1, 4, 6, 8, 9], v=vecsort(digits(k))) == v; \\ Jinyuan Wang, Mar 27 2020

Extensions

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