A288040 Integers whose number of distinct decimal digits is prime.

10, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 100, 101

Offset: 1

Author

Jonathan Frech, Jun 04 2017

Keywords

• base
• nonn

Comments

Differs from A139819 (which contains, for example, 1234, a number with 4 distinct decimal digits). - R. J. Mathar, Jun 14 2017

Crossrefs

Union of A031955 and A031962 and ....

Programs

Mathematica

Select[Range@ 101, PrimeQ@ Count[DigitCount[#], ?(# != 0 &)] &] (* _Michael De Vlieger, Jun 06 2017 *)

PARI

isok(m) = isprime(#Set(digits(m))); \\ Michel Marcus, May 10 2020

Python

from sympy import isprime
print([n for n in range(1, 100) if isprime(len(set(str(n))))])