STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
Q[1, t_, s_] := t*s;
Q[n_, t_, s_] := Q[n, t, s] = s*D[Q[n-1, t, s], s] + s*t^n*Q[n-1, t, s] // Expand;
P[n_, t_] := Module[{s}, Q[n, t, s] /. s -> 1];
a[n_] := If[n == 0, 1, Module[{t}, CoefficientList[P[n, t], t] // Max]];
Table[a[n], {n, 0, 26}] (* Jean-François Alcover, Oct 03 2024 *)
approved
editing
Alois P. Heinz, <a href="/A365903/b365903_1.txt">Table of n, a(n) for n = 0..100</a>
editing
approved
Alois P. Heinz, <a href="/A365903/b365903_1.txt">Table of n, a(n) for n = 0..92100</a>
approved
editing
Alois P. Heinz, <a href="/A365903/b365903_1.txt">Table of n, a(n) for n = 0..92</a>
editing
approved
Wikipedia, <a href="https://en.wikipedia.org/wiki/Partition_of_a_set">Partition of a set</a>