|
Search: id:A072098
|
|
|
| A072098 |
|
Difference between 10^n and the next prime > 10^n is a record high. |
|
+0
1
|
|
| 1, 3, 7, 12, 16, 21, 28, 62, 97, 118, 122, 135, 164, 218, 333, 346, 387, 443, 485, 521, 630, 819
(list; graph; listen)
|
|
|
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: A160998 A141205 A084582 this_sequence A140778 A095115 A141214
Adjacent sequences: A072095 A072096 A072097 this_sequence A072099 A072100 A072101
|
|
KEYWORD
|
hard,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 18 2002
|
|
|
Search completed in 0.002 seconds
|
