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 A214418 #21 Jul 15 2020 00:20:00
%S A214418 1,4,9,27,61,185,469,1428,4292,14456,50040,186525,724023,2952085,
%T A214418 12476584,54670003,246823085,1148176939,5479962138,26831059535,
%U A214418 134411101756,688922857792,3604792968605,19250556430137,104789182807326,581220024906812,3280986439096740
%N A214418 Sum of absolute values of the character table of the symmetric group S_n.
%H A214418 Eric M. Schmidt, <a href="/A214418/b214418.txt">Table of n, a(n) for n = 1..35</a>
%H A214418 T. Kyle Petersen and Bridget Eileen Tenner, <a href="http://arxiv.org/abs/1202.5319">How to write a permutation as a product of involutions (and why you might care)</a>, arXiv:1202.5319 [math.CO], 2012.
%e A214418 The character table of S_3 is / 1 1 1 / 2 0 -1 / 1 -1 1 / and so a(3)=9.
%p A214418 P:=combinat[partition](n):
%p A214418 add(add(abs(combinat[Chi](l, m)), l in P), m in P);
%o A214418 (GAP) A214418 := n -> Sum(Irr(CharacterTable("Symmetric", n)), chi -> Sum(chi, x->AbsoluteValue(x))); # _Eric M. Schmidt_, Jul 18 2012, revised Sep 05 2012
%Y A214418 Row sums of A214430. Compare with A082733. Conjecturally dominated by A164342.
%K A214418 nonn
%O A214418 1,2
%A A214418 _Kyle Petersen_, Jul 17 2012