1,1
Select[Prime[Range[100]], Max[IntegerDigits[ # ]]>7&]
Sequence in context: A063644 A156782 A092600 * A062679 A106093 A084666
Adjacent sequences: A106121 A106122 A106123 * A106125 A106126 A106127
nonn,base
Zak Seidov (zakseidov(AT)yahoo.com), May 07 2005