OFFSET
0,2
MATHEMATICA
f[s_] := Block[{n = Length@s}, Append[s, If[ MemberQ[s, n], 2s[[ -1]], s[[ -1]] + 1]]]; Nest[f, {1}, 60] (* Robert G. Wilson v, May 17 2006 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, May 03 2006
EXTENSIONS
More terms from Robert G. Wilson v, May 17 2006
STATUS
approved