login
A108163
A124049(n)/3.
1
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
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
KEYWORD
nonn
AUTHOR
Hans Havermann, Apr 26 2007
STATUS
approved