%I #13 Mar 09 2022 10:56:15
%S 1,3,6,14,26,58,98,194,344,652,1165,2020,3552,6077,10362,17080,28570,
%T 46836,77045,122013,198461,310602,494008,767237,1205391,1828252,
%U 2846995,4277605,6520106,9795470,14738493,21750402,32582580,47614253,70213289
%N Number of character table entries of the symmetric group S_n which are > 0.
%F A006907(n) + A051748(n) + a(n) = A001255(n). - _R. J. Mathar_, Mar 09 2022
%t a[n_] := Count[FiniteGroupData[{"SymmetricGroup", n}, "CharacterTable"], _?Positive, 2]; Array[a, 10] (* _Jean-François Alcover_, Apr 03 2017 *)
%o (GAP) A051749 := n -> Sum(Irr(CharacterTable("Symmetric", n)), chi -> Number(chi, x->x>0)); # _Eric M. Schmidt_, Jul 14 2012
%Y Cf. A006907, A051748.
%K nonn,nice
%O 1,2
%A JOHN MCKAY (mckay(AT)cs.concordia.ca), Dec 08 1999
%E More terms from _Eric M. Schmidt_, Jul 14 2012