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 A003873 #21 Sep 22 2024 15:03:59
%S A003873 1,1,8,8,27,27,28,28,42,42,42,48,48,56,56,70,84,84,105,105,120,120,
%T A003873 162,162,168,168,189,189,216,216
%N A003873 Degrees of irreducible representations of symmetric group S_9.
%C A003873 All 30 terms of this finite sequence are shown.
%D A003873 J. H. Conway, R. T. Curtis, S. P. Norton, R. A. Parker, and R. A. Wilson, ATLAS of Finite Groups. Oxford Univ. Press, 1985 [for best online version see https://oeis.org/wiki/Welcome#Links_to_Other_Sites].
%t A003873 h[l_] := With[{n = Length[l]}, Total[l]!/Product[Product[1 + l[[i]] - j + Sum[If[l[[k]] >= j, 1, 0], {k, i + 1, n}], {j, 1, l[[i]]}], {i, 1, n}]];
%t A003873 g[n_, i_, l_] := If[n == 0 || i == 1, h[Join[l, Array[1 &, n]]], If[i < 1, 0, Flatten@ Table[g[n - i*j, i - 1, Join[l, Array[i&, j]]], {j, 0, n/i}]]];
%t A003873 T[n_] := g[n, n, {}];
%t A003873 Sort[T[9]] (* _Jean-François Alcover_, Sep 22 2024, after _Alois P. Heinz_ in A060240 *)
%o A003873 (GAP) A003873 := List(Irr(CharacterTable("S9")), chi->chi[1]);; Sort(A003873); # _Eric M. Schmidt_, Jul 18 2012
%Y A003873 Row n=9 of A060240.
%K A003873 nonn,fini,full
%O A003873 1,3
%A A003873 _N. J. A. Sloane_