A030291 Primes with at most two different digits.

2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 113, 131, 151, 181, 191, 199, 211, 223, 227, 229, 233, 277, 311, 313, 331, 337, 353, 373, 383, 433, 443, 449, 499, 557, 577, 599, 661, 677, 727, 733

Offset: 1

Author

Patrick De Geest

Keywords

• nonn
• base
• easy

Comments

The one-digit primes (2, 3, 5, 7) followed by the union of A004022 and A235154. - Jeppe Stig Nielsen, Feb 17 2021

Links

• Jeppe Stig Nielsen, Table of n, a(n) for n = 1..21936 (first 1000 terms from T. D. Noe)

Crossrefs

Cf. A004022, A032758, A116692, A235154.

Programs

Mathematica

Select[Range[1000], PrimeQ[#] && Length[Union[RealDigits[#][[1]]]] <= 2 &]
Select[Prime[Range[200]],Count[DigitCount[#],0]>7&] (* Harvey P. Dale, Jul 14 2017 *)

Extensions

Offset corrected by Arkadiusz Wesolowski, Sep 13 2011