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 A306147 #13 Mar 08 2024 12:00:07
%S A306147 1,2,6,26,198,2042,22566,259226,3249798,47156282,799108326,
%T A306147 15116875226,305203728198,6488119430522,146602455461286,
%U A306147 3557921474016026,92563621667899398,2554423824661976762,74142584637465337446,2258422219660738881626,72255096004023644467398
%N A306147 Expansion of e.g.f. Product_{k>=1} (1 + (exp(x)-1)^(k^2)) / (1 - (exp(x)-1)^(k^2)).
%C A306147 Convolution of A306082 and A306083.
%H A306147 Vaclav Kotesovec, <a href="/A306147/b306147.txt">Table of n, a(n) for n = 0..420</a>
%F A306147 a(n) = Sum_{k=0..n} Stirling2(n,k) * A103265(k) * k!.
%F A306147 a(n) ~ n! * ((2*sqrt(2) - 1) * Zeta(3/2))^(2/3) * exp(3 * (Pi/log(2))^(1/3) * ((2*sqrt(2) - 1) * Zeta(3/2))^(2/3) * n^(1/3) / 4) / (8 * sqrt(3) * Pi^(7/6) * n^(7/6) * (log(2))^(n - 1/6)).
%t A306147 nmax = 20; CoefficientList[Series[Product[(1 + (Exp[x] - 1)^(k^2)) / (1 - (Exp[x] - 1)^(k^2)), {k, 1, nmax}], {x, 0, nmax}], x] * Range[0, nmax]!
%Y A306147 Cf. A001156, A033461, A103265, A306082, A306083.
%K A306147 nonn
%O A306147 0,2
%A A306147 _Vaclav Kotesovec_, Jun 23 2018