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
KEYWORD
nonn
AUTHOR
Franklin T. Adams-Watters, Dec 14 2006
STATUS
approved