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 A294529 #9 Aug 20 2018 07:51:45 %S A294529 1,2,4,8,17,38,86,192,420,905,1939,4163,8987,19494,42368,91990,199127, %T A294529 429345,921982,1972553,4206909,8949412,19001874,40293048,85373962, %U A294529 180826115,382957231,811027414,1717497958,3636335170,7695599294,16275268520,34389570596 %N A294529 Binomial transform of A001156. %H A294529 Vaclav Kotesovec, <a href="/A294529/b294529.txt">Table of n, a(n) for n = 0..3000</a> %F A294529 a(n) = Sum_{k=0..n} binomial(n,k) * A001156(k). %F A294529 a(n) ~ exp(3 * 2^(-5/3) * Pi^(1/3) * Zeta(3/2)^(2/3) * n^(1/3)) * Zeta(3/2)^(2/3) * 2^(n - 7/6) / (sqrt(3) * Pi^(7/6) * n^(7/6)). %F A294529 G.f.: (1/(1 - x))*Product_{k>=1} 1/(1 - x^(k^2)/(1 - x)^(k^2)). - _Ilya Gutkovskiy_, Aug 20 2018 %t A294529 nmax = 40; s = CoefficientList[Series[Product[1/(1 - x^(k^2)), {k, 1, nmax}], {x, 0, nmax}], x]; Table[Sum[Binomial[n, k] * s[[k+1]], {k, 0, n}], {n, 0, nmax}] %Y A294529 Cf. A001156, A218481, A266232, A294500, A294530. %K A294529 nonn %O A294529 0,2 %A A294529 _Vaclav Kotesovec_, Nov 02 2017