OFFSET
1,2
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..5000
MATHEMATICA
a = {1}; Do[k = i + 1; While[Nand[MemberQ[a, k], k <= i + 1], k--]; AppendTo[a, a[[i]] + k], {i, 61}]; a (* Michael De Vlieger, Sep 19 2017 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Apr 10 2006
EXTENSIONS
More terms from Melissa Donovan (msd181(AT)psu.edu), Apr 23 2006
STATUS
approved