OFFSET
2,1
COMMENTS
Is this a permutation of the composite integers?
MATHEMATICA
g[n_] := g[n] = Block[{k = n + 1, t = Table[ g@i, {i, 2, n - 1}]}, While[ MemberQ[t, k] || GCD[n, k] == 1, k++ ]; k]; Table[ g@n, {n, 2, 71}] (* or *) f[lst_] := Block[{len = 2 + Length@lst}, k = 1 + len; While[ MemberQ[lst, k] || GCD[len, k] == 1, k++ ]; Append[lst, k]]; Nest[f, {}, 70] (* Robert G. Wilson v, Aug 17 2009 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jul 07 2009
EXTENSIONS
a(17) and further terms from Robert G. Wilson v, Aug 17 2009
STATUS
approved