|
%I
%S 11,11177,11777,22111,22277,22777,33311,33377,44111,44777,55333,55511,
%T 77711,77999,88811,1100777,1110077,1111333,1115533,1115599,1116677,
%U 1117799,1133333,1133777,1144333,1144477,1144499,1155577,1166677
%N Primes in which digit occur in runs of at least 2.
%t Select[ Prime[ Range[ 10^5 ] ], Min @@ Length /@ Split[ IntegerDigits[ # ] ] > 1 & ] (*Chandler*)
%Y Cf. A113615.
%K easy,nonn,base
%O 1,1
%A _Erich Friedman_
|
