|
| |
|
|
A072098
|
|
Difference between 10^n and the next prime > 10^n is a record high.
|
|
0
| |
|
|
1, 3, 7, 12, 16, 21, 28, 62, 97, 118, 122, 135, 164, 218, 333, 346, 387, 443, 485, 521, 630, 819
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
EXAMPLE
| For a(22)=819 the difference is 10443 and no other n <= 827 exceeds that difference.
|
|
|
MATHEMATICA
| NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; d = 0; k = 1; Do[ While[f = NextPrim[10^k] - 10^k; d >= f, k++ ]; d = f; Print[k], {n, 1, 50}]
|
|
|
CROSSREFS
| Cf. A038805.
Sequence in context: A189797 A184917 A084582 * A184930 A192740 A170883
Adjacent sequences: A072095 A072096 A072097 * A072099 A072100 A072101
|
|
|
KEYWORD
| hard,nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 18 2002
|
| |
|
|
