OFFSET
0,3
LINKS
Michael De Vlieger, Table of n, a(n) for n = 0..10000
MATHEMATICA
a = {1}; Do[AppendTo[a, a[[i - 1]] + SelectFirst[Reverse@ Range[i], FreeQ[a, #] &]], {i, 2, 53}]; {0}~Join~a (* Michael De Vlieger, Sep 16 2017 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Apr 10 2006
EXTENSIONS
More terms from Sheedeh Dorri (spd145(AT)psu.edu) and Melissa Donovan (msd181(AT)psu.edu), Apr 18 2006
STATUS
approved