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

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)

Mathematica

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

Crossrefs

Cf. A004022, A032758, A116692, A235154.

Sequence in context: A069675 A049585 A049549 * A242541 A052085 A082646

Adjacent sequences: A030288 A030289 A030290 * A030292 A030293 A030294

Keyword

nonn,base,easy

Author

Patrick De Geest

Extensions

Offset corrected by Arkadiusz Wesolowski, Sep 13 2011

Status

approved