A035376 - OEIS

%I #8 Aug 27 2015 06:00:56

%S 0,1,0,1,0,2,0,3,0,3,0,5,0,7,0,8,0,11,0,15,0,17,0,23,0,30,0,35,0,44,0,

%T 57,0,66,0,82,0,103,0,121,0,146,0,181,0,211,0,253,0,308,0,360,0,425,0,

%U 513,0,596,0,700,0,834,0,969,0,1127,0,1333,0,1541,0,1786,0,2093,0

%N Number of partitions of n into parts 6k or 6k+2.

%F If n is even, a(n) ~ exp(Pi*sqrt(2*n)/3) * Gamma(1/3) / (2^(13/12) * sqrt(3) * Pi^(2/3) * n^(11/12)). - _Vaclav Kotesovec_, Aug 27 2015

%t nmax = 100; Rest[CoefficientList[Series[Product[1/((1 - x^(6k+6))*(1 - x^(6k+2))), {k, 0, nmax}], {x, 0, nmax}], x]] (* _Vaclav Kotesovec_, Aug 27 2015 *)

%K nonn

%O 1,6

%A _Olivier Gérard_