OFFSET
1,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..500
MATHEMATICA
s = {1}; t = {{1}}; Do[AppendTo[t, BinCounts[#, {1, Max[#] + 1}] &[Flatten[t]]]; AppendTo[s, Max@ Flatten@ t], {58}]; s (* Michael De Vlieger, Nov 15 2022, after Peter J. C. Moses at A030717 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms and simpler title from Sean A. Irvine, Apr 08 2020
STATUS
approved