A281459 Expansion of Product_{k>=1} (1 + x^(7*k-1))*(1 + x^(7*k-6)).
1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 2, 2, 1, 0, 0, 1, 2, 3, 3, 2, 1, 0, 1, 3, 5, 5, 3, 1, 0, 2, 5, 7, 7, 5, 2, 1, 3, 7, 11, 11, 7, 3, 2, 5, 11, 15, 15, 11, 5, 3, 7, 15, 22, 22, 15, 7, 5, 11, 22, 30, 30, 22, 12, 8, 15, 30, 42, 42, 30, 16, 12, 23, 42, 56
Offset: 0
Keywords
Links
- Vaclav Kotesovec, Table of n, a(n) for n = 0..10000
Programs
-
Mathematica
nmax = 100; CoefficientList[Series[Product[(1 + x^(7*k-1))*(1 + x^(7*k-6)), {k, 1, nmax}], {x, 0, nmax}], x]
Formula
a(n) ~ exp(sqrt(2*n/21)*Pi) / (2^(5/4)*21^(1/4)*n^(3/4)) * (1 + (13*Pi/(84*sqrt(42)) - 3*sqrt(21/2)/(8*Pi)) / sqrt(n)). - Vaclav Kotesovec, Jan 22 2017, extended Jan 24 2017
Comments