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 A321286 #12 Nov 02 2018 11:03:39
%S A321286 1,0,1,1,1,2,3,3,5,6,8,10,14,16,22,28,33,43,55,64,84,102,123,153,188,
%T A321286 224,277,335,401,486,589,695,843,1006,1191,1428,1698,1999,2384,2814,
%U A321286 3312,3914,4612,5395,6355,7447,8691,10182,11892,13826,16146,18770,21779,25313
%N A321286 Expansion of Product_{1 <= i < j} (1 + x^(i*j)).
%H A321286 Vaclav Kotesovec, <a href="/A321286/b321286.txt">Table of n, a(n) for n = 0..10000</a>
%F A321286 G.f.: Product_{k>0} (1 + x^k)^A056924(k).
%t A321286 nmax = 100; CoefficientList[Series[Product[(1 + x^k)^Floor[DivisorSigma[0, k]/2], {k, 1, nmax}], {x, 0, nmax}], x] (* _Vaclav Kotesovec_, Nov 02 2018 *)
%t A321286 nmax = 100; A056924 = Table[Floor[DivisorSigma[0, k]/2], {k, 1, nmax}]; s = 1; Do[s *= Sum[Binomial[A056924[[k]], j]*x^(j*k), {j, 0, nmax/k}]; s = Expand[s]; s = Take[s, Min[nmax + 1, Exponent[s, x] + 1, Length[s]]];, {k, 2, nmax}]; Take[CoefficientList[s, x],nmax+1] (* _Vaclav Kotesovec_, Nov 02 2018 *)
%Y A321286 Cf. A056924, A107742, A211856, A321285.
%K A321286 nonn
%O A321286 0,6
%A A321286 _Seiichi Manyama_, Nov 02 2018