%I #12 Mar 31 2016 20:48:52
%S 1,-1,-1,-1,-2,-3,-6,-16,-36,-91,-224,-768,-2420,-7854,-22815,-73008,
%T -292864,-1223040,-5002998,-17592960,-67184000,-279734796,-1183614120,
%U -5844883968,-29448258840,-124619677182,-573333075000,-2764864302200,-13664438287500
%N Least entry in character table of the symmetric group S_n.
%C The maximal value in the character table is the maximal degree of an irreducible representation of S_n and this is in sequence A003040.
%H Eric M. Schmidt, <a href="/A061220/b061220.txt">Table of n, a(n) for n = 1..35</a>
%e a(3) = -1 because the character table of S_3 is / 1 1 1 / 1 1 -1 / 2 -1 0 /.
%p seq(min(map(op,[entries(combinat:-character(n))])),n=1..23); # _Robert Israel_, Mar 31 2016
%t a[n_] := With[{S = "S" <> ToString[n]}, FiniteGroupData[S, "CharacterTable"] // Flatten // Min]; Array[a, 10] (* _Jean-François Alcover_, Mar 31 2016 *)
%o (GAP) A061220 := n -> Minimum(List(Irr(CharacterTable("Symmetric", n)), Minimum)); # _Eric M. Schmidt_, Feb 18 2013
%Y Cf. A003040, A006907.
%K sign,nice
%O 1,5
%A Ola Veshta (olaveshta(AT)my-deja.com), May 30 2001
%E Corrected and extended by _Vladeta Jovovic_, May 20 2003
%E More terms from _Eric M. Schmidt_, Feb 18 2013