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

Links

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

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

Sequence in context: A077533 A175545 A032418 * A108114 A172969 A147267

Adjacent sequences: A108160 A108161 A108162 * A108164 A108165 A108166

Keyword

nonn

Author

Hans Havermann, Apr 26 2007

Status

approved