%I #8 Aug 26 2015 07:03:31
%S 0,0,0,1,0,1,0,1,0,1,1,2,1,1,1,2,2,3,2,3,2,4,3,6,4,6,4,7,6,9,8,10,9,
%T 11,11,15,14,17,16,20,18,24,23,29,27,32,31,38,38,45,45,52,51,60,60,71,
%U 71,82,81,94,94,108,111,126,128,143,146,164,169,190,195,218,221,246
%N Number of partitions of n into parts 7k+4 or 7k+6.
%F a(n) ~ exp(2*Pi*sqrt(n/21)) * Gamma(4/7) * Gamma(6/7) / (4 * 3^(13/28) * 7^(1/28) * Pi^(4/7) * n^(27/28)). - _Vaclav Kotesovec_, Aug 26 2015
%t nmax = 100; Rest[CoefficientList[Series[Product[1/((1 - x^(7k+4))*(1 - x^(7k+6))), {k, 0, nmax}], {x, 0, nmax}], x]] (* _Vaclav Kotesovec_, Aug 26 2015 *)
%K nonn
%O 1,12
%A _Olivier GĂ©rard_