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,1

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A153858 A200294 A169813 * A127559 A066747 A240908

Adjacent sequences: A097514 A097515 A097516 * A097518 A097519 A097520

Keyword

nonn

Author

Cino Hilliard, Aug 27 2004

Extensions

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

Status

approved