OFFSET
1,3
MATHEMATICA
lnc[n_]:=Module[{c=0, t=10^n/2}, While[!AllTrue[t+{c, -c}, PrimeQ], c++]; c]; Array[lnc, 50]/3 (* Harvey P. Dale, Sep 28 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hans Havermann, Apr 26 2007
STATUS
approved