login
A070024
First prime > 10^n in which every substring of length n is prime.
1
23, 113, 1013, 10139, 100379, 1000037, 10000379, 100000193, 1000001237, 10000000097, 100000000193, 1000000000193, 10000000001777, 100000000001831, 1000000000036931, 10000000000001873, 100000000000000691
OFFSET
1,1
MATHEMATICA
Do[k = 10^n; While[ !PrimeQ[k] || Union[ PrimeQ[ Map[ FromDigits, Partition[ IntegerDigits[k], n, 1]]]] != {True}, k++ ]; Print[k], {n, 1, 25}]
CROSSREFS
Cf. A179335. [From Reinhard Zumkeller, Jul 11 2010]
Sequence in context: A337425 A233362 A288751 * A111943 A057877 A302530
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Apr 12 2002
STATUS
approved