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 A318694 #10 Jul 27 2020 15:51:44
%S A318694 1,1,2,10,40,248,1868,14516,131920,1409040,15697872,191687472,
%T A318694 2663239104,37878672960,582357866400,9898540886880,172534018584960,
%U A318694 3192686545714560,63844374067107840,1309775114921541120,28512040933544970240,656888836504576112640,15495311684125737031680
%N A318694 Expansion of e.g.f. Product_{i>=1, j>=1} (1 + x^(i*j)/(i*j)).
%H A318694 Robert Israel, <a href="/A318694/b318694.txt">Table of n, a(n) for n = 0..447</a>
%F A318694 E.g.f.: Product_{k>=1} (1 + x^k/k)^tau(k), where tau = number of divisors (A000005).
%F A318694 E.g.f.: exp(Sum_{k>=1} ( Sum_{d|k} (-d)^(1-k/d)*tau(d) ) * x^k/k).
%p A318694 seq(n!*coeff(series(mul((1+x^k/k)^tau(k),k=1..100),x=0,23),x,n),n=0..22); # _Paolo P. Lava_, Jan 09 2019
%t A318694 nmax = 22; CoefficientList[Series[Product[Product[(1 + x^(i j)/(i j)), {i, 1, nmax}], {j, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!
%t A318694 nmax = 22; CoefficientList[Series[Product[(1 + x^k/k)^DivisorSigma[0, k], {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!
%t A318694 nmax = 22; CoefficientList[Series[Exp[Sum[Sum[(-d)^(1 - k/d) DivisorSigma[0, d], {d, Divisors[k]}] x^k/k, {k, 1, nmax}]], {x, 0, nmax}], x] Range[0, nmax]!
%t A318694 a[n_] := a[n] = If[n == 0, 1, Sum[Sum[(-d)^(1 - k/d) DivisorSigma[0, d], {d, Divisors[k]}] a[n - k], {k, 1, n}]/n]; Table[n! a[n], {n, 0, 22}]
%Y A318694 Cf. A000005, A007838, A107742, A181541, A318416, A318693.
%K A318694 nonn
%O A318694 0,3
%A A318694 _Ilya Gutkovskiy_, Aug 31 2018