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