login
Partial products of PartitionsQ numbers (A000009).
3

%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