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 A285245 #11 Apr 15 2017 15:23:45 %S A285245 1,1,1,1,3,3,3,3,7,10,10,10,18,24,24,24,44,56,65,65,105,129,147,147, %T A285245 227,292,328,355,515,645,717,771,1107,1367,1562,1670,2429,2949,3339, %U A285245 3555,5073,6181,6961,7546,10582,13059,14619,15789,21925,26886,30235,32575 %N A285245 Expansion of Product_{k>=1} 1/(1 - k*x^(k^2)). %H A285245 Vaclav Kotesovec, <a href="/A285245/b285245.txt">Table of n, a(n) for n = 0..10000</a> %F A285245 a(n) ~ c * 2^(n/4), where %F A285245 c = 6.362854320457366874306510139107365081972383711876544726... if mod(n,4)=0 %F A285245 c = 6.470997903106304472752360748461108347899808941622559468... if mod(n,4)=1 %F A285245 c = 6.154059402265470959096395812318265046714869376472639022... if mod(n,4)=2 %F A285245 c = 5.624747659153211728892605407048217108787120474872434485... if mod(n,4)=3 %t A285245 nmax = 100; CoefficientList[Series[Product[1/(1 - k*x^(k^2)), {k,1,nmax}], {x,0,nmax}], x] %Y A285245 Cf. A001156, A006906, A285243, A285244. %K A285245 nonn %O A285245 0,5 %A A285245 _Vaclav Kotesovec_, Apr 15 2017