login
Row lengths for A333867.
4

%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