|
%I #14 Dec 01 2015 10:31:41
%S 1,1,1,2,4,12,48,240,1440,11520,115200,1382400,20736000,373248000,
%T 8211456000,221709312000,7094697984000,269598523392000,
%U 12401532076032000,669682732105728000,42859694854766592000
%N Partial products of PartitionsQ numbers (A000009).
%H Vaclav Kotesovec, <a href="/A152827/b152827.txt">Table of n, a(n) for n = 0..190</a>
%F log(a(n)) ~ 2*Pi*n^(3/2)/(3*sqrt(3)) * (1 - 9*sqrt(3)*log(n)/(8*Pi*sqrt(n)) + 3*sqrt(3)*(3 - 8*log(2) - log(3))/(8*Pi*sqrt(n)) + (13/16 - 27/(8*Pi^2))/n). - _Vaclav Kotesovec_, Nov 30 2015
%t Table[Product[PartitionsQ[k],{k,0,n}],{n,0,33}]
%t FoldList[Times,1,PartitionsQ[Range[20]]] (* _Harvey P. Dale_, Sep 16 2011 *)
%Y Cf. A000009, A000041, A058694.
%K nonn
%O 0,4
%A _Vladimir Joseph Stephan Orlovsky_, Dec 13 2008
%E Offset corrected by _Vaclav Kotesovec_, Nov 29 2015
|
