This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A061220 #12 Mar 31 2016 20:48:52
%S A061220 1,-1,-1,-1,-2,-3,-6,-16,-36,-91,-224,-768,-2420,-7854,-22815,-73008,
%T A061220 -292864,-1223040,-5002998,-17592960,-67184000,-279734796,-1183614120,
%U A061220 -5844883968,-29448258840,-124619677182,-573333075000,-2764864302200,-13664438287500
%N A061220 Least entry in character table of the symmetric group S_n.
%C A061220 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 A061220 Eric M. Schmidt, <a href="/A061220/b061220.txt">Table of n, a(n) for n = 1..35</a>
%e A061220 a(3) = -1 because the character table of S_3 is / 1 1 1 / 1 1 -1 / 2 -1 0 /.
%p A061220 seq(min(map(op,[entries(combinat:-character(n))])),n=1..23); # _Robert Israel_, Mar 31 2016
%t A061220 a[n_] := With[{S = "S" <> ToString[n]}, FiniteGroupData[S, "CharacterTable"] // Flatten // Min]; Array[a, 10] (* _Jean-François Alcover_, Mar 31 2016 *)
%o A061220 (GAP) A061220 := n -> Minimum(List(Irr(CharacterTable("Symmetric", n)), Minimum)); # _Eric M. Schmidt_, Feb 18 2013
%Y A061220 Cf. A003040, A006907.
%K A061220 sign,nice
%O A061220 1,5
%A A061220 Ola Veshta (olaveshta(AT)my-deja.com), May 30 2001
%E A061220 Corrected and extended by _Vladeta Jovovic_, May 20 2003
%E A061220 More terms from _Eric M. Schmidt_, Feb 18 2013