A051749 Number of character table entries of the symmetric group S_n which are > 0.

1, 3, 6, 14, 26, 58, 98, 194, 344, 652, 1165, 2020, 3552, 6077, 10362, 17080, 28570, 46836, 77045, 122013, 198461, 310602, 494008, 767237, 1205391, 1828252, 2846995, 4277605, 6520106, 9795470, 14738493, 21750402, 32582580, 47614253, 70213289

Offset: 1

Author

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

Keywords

• nonn
• nice

Crossrefs

Cf. A006907, A051748.

Programs

GAP

A051749 := n -> Sum(Irr(CharacterTable("Symmetric", n)), chi -> Number(chi, x->x>0)); # Eric M. Schmidt, Jul 14 2012

Mathematica

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

Formula

A006907(n) + A051748(n) + a(n) = A001255(n). - R. J. Mathar, Mar 09 2022

Extensions

More terms from Eric M. Schmidt, Jul 14 2012