|
Search: id:A070024
|
|
|
| A070024 |
|
First nontrivial prime > 10^n in which every substring of length n is prime. |
|
+0
1
|
|
| 23, 113, 1013, 10139, 100379, 1000037, 10000379, 100000193, 1000001237, 10000000097, 100000000193, 1000000000193, 10000000001777, 100000000001831, 1000000000036931, 10000000000001873, 100000000000000691
(list; graph; listen)
|
|
|
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.
Adjacent sequences: A070021 A070022 A070023 this_sequence A070025 A070026 A070027
Sequence in context: A126410 A071634 A101804 this_sequence A057877 A042026 A042028
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 12 2002
|
|
|
Search completed in 0.002 seconds
|
