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 A006907 M3394 #46 Jan 31 2025 17:41:41
%S A006907 0,0,1,4,10,29,55,153,307,588,1018,2230,3543,6878,11216,20615,33355,
%T A006907 57980,90194,155176,239327,395473,604113,970294,1453749,2323476,
%U A006907 3425849,5349414,7905133,11963861,17521274,26472001,38054619,56756488,81683457,119005220,170498286,247619748
%N A006907 Number of zeros in character table of symmetric group S_n.
%D A006907 J. McKay, personal communication to N. J. A. Sloane, circa 1991.
%D A006907 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H A006907 Alexander R. Miller, <a href="https://www.mat.univie.ac.at/~miller/ARMillerEvenOddNote.pdf">On parity and characters of symmetric groups</a>, preprint.
%H A006907 Alexander R. Miller, <a href="https://doi.org/10.1016/j.jcta.2018.11.001">On parity and characters of symmetric groups</a>, J. Combin. Theory Ser. A 162 (2019), 231-240.
%F A006907 a(n) + A051748(n) + A051749(n) = A001255(n). - _R. J. Mathar_, Mar 09 2022
%t A006907 a[n_] := Count[FiniteGroupData[{"SymmetricGroup", n}, "CharacterTable"], 0, 2]; Array[a, 10] (* _Jean-François Alcover_, Oct 08 2016 *)
%o A006907 (GAP) A006907 := n -> Sum(Irr(CharacterTable("Symmetric", n)), chi -> Number(chi, x->x=0)); # _Eric M. Schmidt_, Jul 13 2012, simplified Jul 26 2012
%Y A006907 Cf. A006908, A051748, A051749.
%K A006907 nonn,nice
%O A006907 1,4
%A A006907 _Simon Plouffe_ and _N. J. A. Sloane_
%E A006907 More terms from _Vladeta Jovovic_, May 20 2003
%E A006907 More terms from _Eric M. Schmidt_, Jul 13 2012
%E A006907 a(36)-a(38) found by _Alexander R. Miller_ (see 2019 reference). - _N. J. A. Sloane_, Jul 07 2020