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,1

Comments

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

Links

Table of n, a(n) for n=1..83.

Mathematica

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

Prog

(Python)
from sympy import isprime
print([n for n in range(1, 100) if isprime(len(set(str(n))))])
(PARI) isok(m) = isprime(#Set(digits(m))); \\ Michel Marcus, May 10 2020

Crossrefs

Union of A031955 and A031962 and ....

Sequence in context: A285687 A139704 A139819 * A031955 A029742 A043638

Adjacent sequences: A288037 A288038 A288039 * A288041 A288042 A288043

Keyword

base,nonn

Author

Jonathan Frech, Jun 04 2017

Status

approved