A126027 Row lengths for A333867.

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, 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

Offset

1,4

Links

Michael De Vlieger, Table of n, a(n) for n = 1..1201 (first 500 terms from Reinhard Zumkeller)

Formula

a(n+1) = max_{k=1..a(n)} A333867(n,k).

Mathematica

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

Prog

(Haskell)
a126027 = length . a333867_row  -- Reinhard Zumkeller, Dec 28 2014

Crossrefs

Cf. A333867, A240508, A253170.

Sequence in context: A008718 A248958 A030719 * A111581 A116572 A342517

Adjacent sequences: A126024 A126025 A126026 * A126028 A126029 A126030

Keyword

nonn

Author

Franklin T. Adams-Watters, Dec 14 2006

Status

approved