|
%I #17 Mar 03 2021 22:03:45
%S 2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,
%T 97,101,113,131,151,181,191,199,211,223,227,229,233,277,311,313,331,
%U 337,353,373,383,433,443,449,499,557,577,599,661,677,727,733
%N Primes with at most two different digits.
%C The one-digit primes (2, 3, 5, 7) followed by the union of A004022 and A235154. - _Jeppe Stig Nielsen_, Feb 17 2021
%H Jeppe Stig Nielsen, <a href="/A030291/b030291.txt">Table of n, a(n) for n = 1..21936</a> (first 1000 terms from T. D. Noe)
%t Select[Range[1000], PrimeQ[#] && Length[Union[RealDigits[#][[1]]]] <= 2 &]
%t Select[Prime[Range[200]],Count[DigitCount[#],0]>7&] (* _Harvey P. Dale_, Jul 14 2017 *)
%Y Cf. A004022, A032758, A116692, A235154.
%K nonn,base,easy
%O 1,1
%A _Patrick De Geest_
%E Offset corrected by _Arkadiusz Wesolowski_, Sep 13 2011
|
