Many excellent designs for a new banner were submitted. We will use the best of them in rotation.
Table of n, a(n) for n=1..37.
Select[Prime[Range], Max[IntegerDigits[ # ]]>7&]
Sequence in context: A063644 A156782 A092600 * A062679 A106093 A084666
Adjacent sequences: A106121 A106122 A106123 * A106125 A106126 A106127
Zak Seidov, May 07 2005