A155024 - OEIS

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

(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

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