A070024 First prime > 10^n in which every substring of length n is prime.

23, 113, 1013, 10139, 100379, 1000037, 10000379, 100000193, 1000001237, 10000000097, 100000000193, 1000000000193, 10000000001777, 100000000001831, 1000000000036931, 10000000000001873, 100000000000000691

Offset: 1

Author

Robert G. Wilson v, Apr 12 2002

Keywords

• base
• nonn

Crossrefs

Cf. A019546, A069488, A069489, A070025.

Cf. A179335. [From Reinhard Zumkeller, Jul 11 2010]

Programs

Mathematica

Do[k = 10^n; While[ !PrimeQ[k] || Union[ PrimeQ[ Map[ FromDigits, Partition[ IntegerDigits[k], n, 1]]]] != {True}, k++ ]; Print[k], {n, 1, 25}]