OFFSET
1,1
COMMENTS
LINKS
Peter J. C. Moses, Table of n, a(n) for n = 1..1000
MATHEMATICA
f[n_] := Block[{o = 16, s, p, k}, s = {o + 2, o + 3}; For[k = 3, k <= n, k++, p = 2; While[GCD[p + o, s[[k - 1]]] == 1 || MemberQ[s, p + o], p = NextPrime@ p]; AppendTo[s, p + o]]; s]; f@ 56 (* Michael De Vlieger, Apr 20 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Apr 20 2015
EXTENSIONS
More terms from Peter J. C. Moses, Apr 20 2015
STATUS
approved