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 A051749 #13 Mar 09 2022 10:56:15
%S A051749 1,3,6,14,26,58,98,194,344,652,1165,2020,3552,6077,10362,17080,28570,
%T A051749 46836,77045,122013,198461,310602,494008,767237,1205391,1828252,
%U A051749 2846995,4277605,6520106,9795470,14738493,21750402,32582580,47614253,70213289
%N A051749 Number of character table entries of the symmetric group S_n which are > 0.
%F A051749 A006907(n) + A051748(n) + a(n) = A001255(n). - _R. J. Mathar_, Mar 09 2022
%t A051749 a[n_] := Count[FiniteGroupData[{"SymmetricGroup", n}, "CharacterTable"], _?Positive, 2]; Array[a, 10] (* _Jean-François Alcover_, Apr 03 2017 *)
%o A051749 (GAP) A051749 := n -> Sum(Irr(CharacterTable("Symmetric", n)), chi -> Number(chi, x->x>0)); # _Eric M. Schmidt_, Jul 14 2012
%Y A051749 Cf. A006907, A051748.
%K A051749 nonn,nice
%O A051749 1,2
%A A051749 JOHN MCKAY (mckay(AT)cs.concordia.ca), Dec 08 1999
%E A051749 More terms from _Eric M. Schmidt_, Jul 14 2012