|
%I #8 Dec 04 2022 18:30:40
%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 each digit occurs in runs of at least 2.
%t Select[ Prime[ Range[ 10^5 ] ], Min @@ Length /@ Split[ IntegerDigits[ # ] ] > 1 & ] (* _Ray Chandler_, Jan 24 2006 *)
%Y Cf. A113615.
%K easy,nonn,base
%O 1,1
%A _Erich Friedman_
%E Definition clarified by _Harvey P. Dale_, Dec 04 2022
|
