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

Links

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

Formula

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

Mathematica

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

Prog

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

Crossrefs

Cf. A006907, A051748.

Sequence in context: A265947 A358831 A323450 * A278788 A279828 A277954

Adjacent sequences: A051746 A051747 A051748 * A051750 A051751 A051752

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