OFFSET
0,2
MATHEMATICA
Block[{c, k, m, r = 0}, c[0] = 1; Prepend[Differences[#], First[#]] &@ Position[{-1}~Join~Reap[Do[k = 0; While[k <= r, If[IntegerQ@ c[k], Set[m, c[k]], Set[c[k], 0]; Set[m, 0]]; If[m > r, r = m]; Sow[m]; If[IntegerQ@ c[m], c[m]++, c[m] = 1]; k++]; Sow[-1]; c[0]++, 32]][[-1, -1]], -1][[All, 1]]] (* Michael De Vlieger, Oct 12 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Sep 10 2021
EXTENSIONS
a(10)-a(43) from Andrey Zabolotskiy, Sep 10 2021
STATUS
approved