OFFSET
0,4
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..1000
FORMULA
MATHEMATICA
A066777list[nmax_]:=Differences[Nest[Append[#, Total[Take[#, -Ceiling[(Sqrt[8Length[#]+1]-1)/2]]]]&, {1}, nmax+1]]; A066777list[35] (* Paolo Xausa, Sep 28 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jul 04 2002
STATUS
approved