A030721 Record values in A030717.

1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 15, 18, 20, 23, 25, 30, 38, 49, 62, 77, 94, 110, 129, 149, 172, 195, 218, 241, 266, 293, 323, 356, 389, 424, 461, 500, 545, 593, 641, 688, 737, 787, 839, 896, 957, 1021, 1085, 1152, 1219, 1291, 1368, 1447, 1527, 1611, 1697, 1788

Offset: 1

Author

Clark Kimberling

Keywords

• nonn

Links

• Seiichi Manyama, Table of n, a(n) for n = 1..500

Crossrefs

Cf. A030717, A030722.

Programs

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 *)

Extensions

More terms and simpler title from Sean A. Irvine, Apr 08 2020