A051749 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.