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 A318570 #26 Apr 03 2019 02:58:24
%S A318570 1,2,6,18,52,146,402,1090,2916,7708,20160,52236,134222,342304,867024,
%T A318570 2182384,5461696,13595918,33677550,83036878,203859820,498470998,
%U A318570 1214230586,2947204870,7129403128,17191258642,41328057106,99067295658,236822823336,564650823162,1342921372126
%N A318570 Expansion of Product_{k>=1} ((1 - x)^k + x^k)/((1 - x)^k - x^k).
%C A318570 First differences of the binomial transform of A015128.
%C A318570 Convolution of A129519 and A218482.
%H A318570 N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%F A318570 G.f.: 1/theta_4(x/(1 - x)), where theta_4() is the Jacobi theta function.
%F A318570 G.f.: exp(Sum_{k>=1} (sigma(2*k) - sigma(k))*x^k/(k*(1 - x)^k)).
%F A318570 a(n) ~ 2^(n-3) * exp(Pi*sqrt(n/2) + Pi^2/16) / n. - _Vaclav Kotesovec_, Oct 15 2018
%p A318570 a:=series(mul(((1-x)^k+x^k)/((1-x)^k-x^k),k=1..100),x=0,31): seq(coeff(a,x,n),n=0..30); # _Paolo P. Lava_, Apr 02 2019
%t A318570 nmax = 30; CoefficientList[Series[Product[((1 - x)^k + x^k)/((1 - x)^k - x^k), {k, 1, nmax}], {x, 0, nmax}], x]
%t A318570 nmax = 30; CoefficientList[Series[1/EllipticTheta[4, 0, x/(1 - x)], {x, 0, nmax}], x]
%t A318570 nmax = 30; CoefficientList[Series[Exp[Sum[(DivisorSigma[1, 2 k] - DivisorSigma[1, k]) x^k/(k (1 - x)^k), {k, 1, nmax}]], {x, 0, nmax}], x]
%Y A318570 Cf. A000203, A015128, A129519, A218482, A266497.
%K A318570 nonn
%O A318570 0,2
%A A318570 _Ilya Gutkovskiy_, Oct 15 2018