login
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.
1
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
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
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