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,3

Links

Table of n, a(n) for n=1..35.

Mathematica

a[n_] := Count[FiniteGroupData[{"SymmetricGroup", n}, "CharacterTable"], _?Negative, 2]; Array[a, 10] (* Jean-François Alcover, Apr 03 2017 *)

Prog

(GAP) A051748 := n -> Sum(Irr(CharacterTable("Symmetric", n)), chi -> Number(chi, x->x<0)); # Eric M. Schmidt, Jul 14 2012, revised Sep 05 2012

Crossrefs

Cf. A006907, A051749.

Sequence in context: A320680 A079119 A309368 * A330452 A086904 A358906

Adjacent sequences: A051745 A051746 A051747 * A051749 A051750 A051751

Keyword

nonn,nice

Author

JOHN MCKAY (mckay(AT)cs.concordia.ca), Dec 08 1999

Extensions

More terms from Eric M. Schmidt, Jul 14 2012

Status

approved