OFFSET
1,1
MATHEMATICA
k = 4; t = Union[{2 (k + 1)}, Select[# NextPrime[#, 2] &@ Prime@ Range@ 120, # > 2 (k + 1) &]]; Last@ Select[#, ListQ@ # &] &@ Table[If[Length@ t < n, 0, t = DeleteCases[t, k_ /; MemberQ[Select[Drop[t, n], ! CoprimeQ[#, t[[n]]] &], k]]], {n, Length@ t}] (* Michael De Vlieger, Jul 21 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev and Peter J. C. Moses, Jul 21 2016
STATUS
approved