A097517 Consider the difference (A033873(k)) between the smallest prime > 10^k and 10^k; sequence lists the successive values of A033873(k) which are primes.

7, 3, 3, 19, 7, 7, 19, 3, 37, 31, 37, 61, 3, 3, 7, 13, 67, 103, 331, 61, 193, 67, 43, 3, 109, 31, 193, 151, 31, 3, 19, 7, 79, 13, 103, 151, 373, 181, 31, 79, 97, 151, 127, 3, 3, 79, 3, 19, 457, 7, 139, 271, 79, 709, 79, 3, 283, 7, 283, 13, 13, 73, 67, 13, 151, 37, 193, 337

Offset: 1

Author

Cino Hilliard, Aug 27 2004

Keywords

• nonn

Crossrefs

This is the prime subsequence of A033873. Cf. A033874.

Programs

Mathematica

f[n_]:=Module[{x=10^n},NextPrime[x]-x];Select[f/@Range[0,200],PrimeQ] (* Harvey P. Dale, May 03 2021 *)

Extensions

Definition corrected by N. J. A. Sloane, May 03 2021. Thanks to Harvey P. Dale for pointing out that something was wrong.