OFFSET
1,2
COMMENTS
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
nn = 63; c[_] = 0; i = 1; {1}~Join~Differences@ Reap[Do[k = 0; While[c[k] > 0, Set[m, c[k]]; c[m]++; c[k]++; i += 2; k++]; Set[m, c[k]]; c[m]++; c[k]++; Sow[(i + 1)/2]; i += 2, {n, nn}]][[-1, -1]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Sep 25 2022
STATUS
approved