OFFSET
1,2
COMMENTS
a(n) is also the sum of the fourth powers of the numbers of standard Young tableaux over all partitions of n. - Thotsaporn Thanatipanonda, Feb 25 2012
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..60
Thotsaporn Thanatipanonda, Maple code for A129627
MATHEMATICA
h[l_] := With[{n=Length[l]}, Sum[i, {i, l}]!/Product[Product[1 + l[[i]] - j + Sum[If[l[[k]] >= j, 1, 0], {k, i+1, n}], {j, 1, l[[i]]}], {i, 1, n}]];
g[n_, i_, k_, l_] := g[n, i, l, k] = If[n == 0, h[l]^k, If[i < 1, 0, g[n, i - 1, k, l] + If[i > n, 0, g[n - i, i, k, Append[l, i]]]]];
a[n_] := If[n == 0, 1, g[n, n, 4, {}]];
Table[a[n], {n, 1, 20}] (* Jean-François Alcover, May 18 2017, after Alois P. Heinz *)
PROG
(GAP) List([1..20], n->Sum(List(Irr(CharacterTable("Symmetric", n)), x->x[1]^4)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Dmitrii Pasechnik, May 30 2007
STATUS
approved