OFFSET
1,1
MATHEMATICA
f[s_List] := Block[{k = 0, l, n}, l = 1 + Length@s; n = Prime@l; While[n > 0, k++; While[ GCD[l, k] > 1, k++ ]; n-- ]; Return@ Append[s, k]]; Nest[f, {}, 75] (* Ray Chandler, Aug 22 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Aug 20 2006
EXTENSIONS
Extended by Ray Chandler, Aug 22 2006
STATUS
approved