A051748 Number of character table entries of the symmetric group S_n which are < 0.
0, 1, 2, 7, 13, 34, 72, 137, 249, 524, 953, 1679, 3106, 5270, 9398, 15666, 26284, 43409, 72861, 115940, 189476, 297929, 476904, 743094, 1174624, 1782368, 2787256, 4196505, 6413986, 9645485, 14553197, 21483398, 32243250, 47165359, 69606943
Offset: 1
Programs
-
GAP
A051748 := n -> Sum(Irr(CharacterTable("Symmetric", n)), chi -> Number(chi, x->x<0)); # Eric M. Schmidt, Jul 14 2012, revised Sep 05 2012
-
Mathematica
a[n_] := Count[FiniteGroupData[{"SymmetricGroup", n}, "CharacterTable"], ?Negative, 2]; Array[a, 10] (* _Jean-François Alcover, Apr 03 2017 *)
Extensions
More terms from Eric M. Schmidt, Jul 14 2012