%I #12 Apr 03 2017 10:32:43
%S 0,1,2,7,13,34,72,137,249,524,953,1679,3106,5270,9398,15666,26284,
%T 43409,72861,115940,189476,297929,476904,743094,1174624,1782368,
%U 2787256,4196505,6413986,9645485,14553197,21483398,32243250,47165359,69606943
%N Number of character table entries of the symmetric group S_n which are < 0.
%t a[n_] := Count[FiniteGroupData[{"SymmetricGroup", n}, "CharacterTable"], _?Negative, 2]; Array[a, 10] (* _Jean-François Alcover_, Apr 03 2017 *)
%o (GAP) A051748 := n -> Sum(Irr(CharacterTable("Symmetric", n)), chi -> Number(chi, x->x<0)); # _Eric M. Schmidt_, Jul 14 2012, revised Sep 05 2012
%Y Cf. A006907, A051749.
%K nonn,nice
%O 1,3
%A JOHN MCKAY (mckay(AT)cs.concordia.ca), Dec 08 1999
%E More terms from _Eric M. Schmidt_, Jul 14 2012