%I #20 Nov 16 2022 08:54:09
%S 1,1,1,2,2,3,3,4,5,6,7,7,8,11,15,18,20,23,25,30,38,49,62,77,94,110,
%T 129,149,172,195,218,241,266,293,323,356,389,424,461,500,545,593,641,
%U 688,737,787,839,896,957,1021,1085,1152,1219,1291,1368,1447,1527,1611,1697
%N Row lengths for A333867.
%H Michael De Vlieger, <a href="/A126027/b126027.txt">Table of n, a(n) for n = 1..1201</a> (first 500 terms from Reinhard Zumkeller)
%F a(n+1) = max_{k=1..a(n)} A333867(n,k).
%t nn = 69; c[_] = 0; k = a[1] = c[1] = 1; Join[{1}, Reap[Do[w = Union@ Array[a, k]; Do[Set[a[j + k], c[w[[j]]]], {j, Length[w]}]; Do[c[a[j + k]]++, {j, Length[w]}]; k += Length[w]; Sow[Max[w]], {n, nn}]][[-1, -1]] ] (* _Michael De Vlieger_, Nov 15 2022 *)
%o (Haskell)
%o a126027 = length . a333867_row -- _Reinhard Zumkeller_, Dec 28 2014
%Y Cf. A333867, A240508, A253170.
%K nonn
%O 1,4
%A _Franklin T. Adams-Watters_, Dec 14 2006