%I A030291
%S A030291 2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,
%T A030291 89,97,101,113,131,151,181,191,199,211,223,227,229,233,277,311,313,
%U A030291 331,337,353,373,383,433,443,449,499,557,577,599,661,677,727,733
%N A030291 Primes with at most two different digits.
%t A030291 Select[ Range[ 1, 1000 ], PrimeQ[ # ] && Length[ Union[ RealDigits[ # 
               ][ [ 1 ] ] ] ] <= 2 & ]
%Y A030291 Cf. A032758.
%Y A030291 Sequence in context: A069675 A049585 A049549 this_sequence A032758 A052085 
               A082646
%Y A030291 Adjacent sequences: A030288 A030289 A030290 this_sequence A030292 A030293 
               A030294
%K A030291 nonn,base,easy
%O A030291 0,1
%A A030291 Patrick De Geest (pdg(AT)worldofnumbers.com)