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 A046858 #22 Dec 30 2023 16:37:19
%S A046858 1,1,1,1,2,4,2,1,1,2,8,17,24,24,17,8,2,1,1,2,9,32,95,203,373,515,584,
%T A046858 515,373,203,95,32,9,2,1,1,2,9,36,157,549,1692,4374,9626,17874,28373,
%U A046858 38486,44805,44805,38486,28373,17874,9626,4374,1692,549,157,36,9,2,1,1
%N A046858 Irregular triangle read by rows: T(n,k) = number of directed graphs-with-loops with n nodes and k arcs (n >= 0, 0 <= k <= n^2).
%C A046858 Equivalently, T(n,k) = number of relations on n-set with strength k (n >= 0, 0<=k<=n^2).
%D A046858 W. Oberschelp, Kombinatorische Anzahlbestimmungen in Relationen, Math. Ann., 174 (1967), 53-78.
%H A046858 W. Oberschelp, <a href="http://gdz.sub.uni-goettingen.de/dms/load/img/?PID=GDZPPN002298732">Kombinatorische Anzahlbestimmungen in Relationen</a>, Math. Ann., 174 (1967), 53-78.
%e A046858 Triangle begins:
%e A046858 [1],
%e A046858 [1, 1],
%e A046858 [1, 2, 4, 2, 1],
%e A046858 [1, 2, 8, 17, 24, 24, 17, 8, 2, 1],
%e A046858 [1, 2, 9, 32, 95, 203, 373, 515, 584, 515, 373, 203, 95, 32, 9, 2, 1] (the last batch giving the numbers of directed graphs with loops on 4 nodes and from 0 to 16 arcs).
%t A046858 Needs["Combinatorica`"]; Join[{{1}, {1,1}}, CoefficientList[Table[CycleIndex[Join[PairGroup[SymmetricGroup[n], Ordered], Permutations[Range[n^2-n+1, n^2]], 2],s]/.Table[s[i]->1+x^i, {i,1,n^2-n}], {n,2,7}], x]]//Grid (* _Geoffrey Critzer_, Sep 29 2012 *)
%Y A046858 Cf. A000595.
%K A046858 nonn,tabf,nice
%O A046858 0,5
%A A046858 _N. J. A. Sloane_
%E A046858 More terms from _Vladeta Jovovic_, Feb 07 2000
%E A046858 Edited by _N. J. A. Sloane_ Apr 16 2008 at the suggestion of Herman Jamke (hermanjamke(AT)fastmail.fm), Mar 24 2008