|
%I #15 Jan 24 2017 16:25:19
%S 1,0,0,1,1,0,1,1,1,1,2,2,2,2,3,3,3,4,5,4,6,7,7,7,10,10,10,12,15,14,16,
%T 19,21,21,25,28,30,31,37,40,42,46,54,55,60,68,74,76,87,95,101,108,122,
%U 130,139,151,168,176,190,209,227,237,261,284,302,321,355,378,402,434
%N Number of partitions of n into parts 7k+3 or 7k+4.
%C Convolution of A109706 and A109705. - _Vaclav Kotesovec_, Jan 21 2017
%H Vaclav Kotesovec, <a href="/A035435/b035435.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) ~ exp(2*Pi*sqrt(n/21)) / (4 * 21^(1/4) * cos(Pi/14) * n^(3/4)) * (1 + (23*Pi/(84*sqrt(21)) - 3*sqrt(21)/(16*Pi)) / sqrt(n)). - _Vaclav Kotesovec_, Aug 26 2015, extended Jan 24 2017
%t nmax = 100; CoefficientList[Series[Product[1/((1 - x^(7k+3))*(1 - x^(7k+4))), {k, 0, nmax}], {x, 0, nmax}], x] (* _Vaclav Kotesovec_, Aug 26 2015 *)
%K nonn
%O 0,11
%A _Olivier Gérard_
%E Prepended a(0)=1 from _Vaclav Kotesovec_, Jan 23 2017
|
