|
MATHEMATICA
|
a[n_] := a[n] = SeriesCoefficient[x Product[1/(1 - k^k x^k)^(a[k]/k), {k, 1, n - 1}], {x, 0, n}]; Table[a[n], {n, 1, 12}]
a[n_] := a[n] = Sum[Sum[d^k a[d], {d, Divisors[k]}] a[n - k], {k, 1, n - 1}]/(n - 1); a[1] = 1; Table[a[n], {n, 1, 12}]
|