A072098 Difference between 10^n and the next prime > 10^n is a record high.

1, 3, 7, 12, 16, 21, 28, 62, 97, 118, 122, 135, 164, 218, 333, 346, 387, 443, 485, 521, 630, 819

Offset

1,2

Links

Table of n, a(n) for n=1..22.

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: A330181 A184917 A084582 * A184930 A310244 A310245

Adjacent sequences: A072095 A072096 A072097 * A072099 A072100 A072101

Keyword

hard,nonn

Author

Robert G. Wilson v, Jun 18 2002

Status

approved