1,1
Select[ Prime[ Range[ 10^5 ] ], Min @@ Length /@ Split[ IntegerDigits[ # ] ] > 1 & ] (*Chandler*)
Cf. A113615.
Sequence in context: A068224 A066945 A113615 this_sequence A075854 A050786 A088103
Adjacent sequences: A034870 A034871 A034872 this_sequence A034874 A034875 A034876
easy,nonn,base
Erich Friedman (erich.friedman(AT)stetson.edu)
Search completed in 0.002 seconds