|
|
A082733
|
|
Sum of all entries in character table of the symmetric group S_n.
|
|
28
|
|
|
1, 2, 5, 13, 31, 89, 259, 842, 2810, 10020, 37266, 145373, 586071, 2453927, 10590180, 47159351, 215706629, 1013916313, 4882544468, 24087770591, 121481296510, 626169893024, 3293432146879, 17670096206819, 96589760733604, 537731396393480, 3045955783377644
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
Eric M. Schmidt, Table of n, a(n) for n = 1..35
J. B. Geloun and S. Ramgoolam, Counting Tensor Model Observables and Branched Covers of the 2-Sphere, arXiv preprint arXiv:1307.6490 [hep-th], 2013.
|
|
EXAMPLE
|
a(3) = 5 because the character table of S_3 is / 1 1 1 / 2 0 -1 / 1 -1 1 /.
|
|
MATHEMATICA
|
a[n_] := FiniteGroupData[{"SymmetricGroup", n}, "CharacterTable"] // Flatten // Total;
Table[an = a[n]; Print[n, " ", an]; an, {n, 1, 10}] (* Jean-François Alcover, Nov 03 2018 *)
|
|
PROG
|
(GAP) A082733 := n -> Sum(Sum(Irr(CharacterTable("Symmetric", n)))); # Eric M. Schmidt, Jul 03 2012
|
|
CROSSREFS
|
Sequence in context: A200772 A099515 A056367 * A095134 A086758 A179257
Adjacent sequences: A082730 A082731 A082732 * A082734 A082735 A082736
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladeta Jovovic, May 20 2003
|
|
EXTENSIONS
|
More terms from Eric M. Schmidt, Jul 03 2012
|
|
STATUS
|
approved
|
|
|
|