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 A277974 #20 Nov 27 2016 07:21:53 %S A277974 0,1,4,13,38,101,252,594,1340,2907,6104,12447,24744,48068,91476, %T A277974 170838,313646,566824,1009628,1774290,3079338,5282172,8962288, %U A277974 15050848,25032420,41255101,67406472,109236685,175654072,280371510,444372452,699579062,1094289564 %N A277974 Expansion of ((Product_{n>=1} (1 - x^(5*n))/(1 - x^n)^5) - 1)/5 in powers of x. %H A277974 Seiichi Manyama, <a href="/A277974/b277974.txt">Table of n, a(n) for n = 0..1000</a> %F A277974 a(n) = A277212(n)/5, n > 0. %F A277974 G.f.: ((Product_{n>=1} (1 - x^(5*n))/(1 - x^n)^5) - 1)/5. %F A277974 a(n) ~ exp(4*Pi*sqrt(n/5)) / (sqrt(2) * 5^(11/4) * n^(7/4)). - _Vaclav Kotesovec_, Nov 10 2016 %e A277974 G.f. = x + 4*x^2 + 13*x^3 + 38*x^4 + 101*x^5 + 252*x^6 + ... %t A277974 nmax = 50; CoefficientList[Series[(Product[(1 - x^(5*j))/(1 - x^j)^5, {j, 1, nmax}] - 1)/5, {x, 0, nmax}], x] (* _Vaclav Kotesovec_, Nov 10 2016 *) %t A277974 a[ n_] := SeriesCoefficient[ (QPochhammer[ x^5] / QPochhammer[ x]^5 - 1) / 5, {x, 0, n}]; (* _Michael Somos_, Nov 13 2016 *) %o A277974 (PARI) x='x+O('x^66); concat([0],Vec(eta(x^5)/eta(x)^5-1)/5) \\ _Joerg Arndt_, Nov 27 2016 %Y A277974 Cf. Expansion of ((Product_{n>=1} (1 - x^(k*n))/(1 - x^n)^k) - 1)/k in powers of x: A014968 (k=2), A277968 (k=3), this sequence (k=5), A160549 (k=7), A277912 (k=11). %K A277974 nonn %O A277974 0,3 %A A277974 _Seiichi Manyama_, Nov 07 2016