A108163 A124049(n)/3.

0, 1, 3, 27, 41, 19, 29, 81, 23, 21, 63, 77, 523, 127, 77, 481, 371, 107, 113, 451, 121, 173, 441, 501, 247, 407, 319, 351, 113, 1977, 707, 767, 677, 1591, 1579, 3427, 439, 43, 1291, 481, 129, 3923, 2757, 1779, 961, 2379, 2731, 2831

Offset: 1

Author

Hans Havermann, Apr 26 2007

Keywords

• nonn

Programs

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