|
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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. A019546, A069488, A069489 & A070025.
Cf. A179335. [From Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Jul 11 2010]
Sequence in context: A071634 A101804 A142324 * A057877 A156568 A042026
Adjacent sequences: A070021 A070022 A070023 * A070025 A070026 A070027
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 12 2002
|
| |
|
|
