OFFSET
0,3
MATHEMATICA
f[l_List] := Block[{c}, c = Complement[Divisors[Length[l]], l]; Append[l, l[[ -1]] + If[c == {}, 0, Max @@ c]]]; Nest[f, {1}, 55] (* Ray Chandler, Feb 19 2007 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Feb 15 2007
EXTENSIONS
Extended by Ray Chandler, Feb 19 2007
STATUS
approved