|
%I #41 Oct 06 2016 04:54:26
%S 1,1,1,2,5,12,32,94,289,910,2934,9686,32540,110780,381676,1328980,
%T 4669367,16535154,58965214,211591218,763535450,2769176514,10089240974,
%U 36912710568,135565151486,499619269774,1847267563742,6850369296298
%N Number of partitions of the n-th triangular number involving only the numbers 1..n and with exactly n terms.
%C Asymptotic to (sqrt(3)/(2*Pi))*(4^n/n^2). It is the number of lattice paths from (0,0) to (n,n-1) with steps only to the right or upward and having area n(n-1)/2 between the path and the x-axis. In the reference by Takács use formula (77) with a=n, b=n(n-1)/2 and then Stirling's formula. - _Kent E. Morrison_, May 28 2016
%H Max Alekseyev and Alois P. Heinz, <a href="/A076822/b076822.txt">Table of n, a(n) for n = 0..240</a> (terms n=1..100 from Max Alekseyev)
%H L. Takács, <a href="https://dx.doi.org/10.1016/0378-3758(86)90016-9">Some asymptotic formulas for lattice paths</a>, J. Statist. Plann. Inference, 14 (1986), 123-142.
%F a(n) = A067059(n,n+1); also a(n) = T[n*(n-1)/2, n-1, n] with T[ ] defined as in A047993. - _Martin Fuller_, Jun 27 2006
%e a(4)=5 as T(4)=10= 1+1+4+4 =1+2+3+4 = 1+3+3+3 = 2+2+2+4 = 2+2+3+3.
%t f[n_] := Block[{p = IntegerPartitions[n(n + 1)/2, n]}, Length[ Select[p, Length[ # ] == n &]]]; Table[ f[n], {n, 1, 13}]
%o (JavaScript)
%o ccc=new Array(); cccc=0;
%o for (n=1; n<11; n++)
%o {
%o str='cc=0; for (i1=1; i1<'+(n+1)+'; i1++)';
%o str2='i1';
%o str3='i1';
%o tn=1;
%o for (i=2; i<=n; i++)
%o {
%o str+='for (i'+i+'=i'+(i-1)+'; i'+i+'<'+(n+1)+'; i'+i+'++)';
%o str2+='+i'+i;
%o str3+=', ", ", i'+i;
%o tn+=i;
%o }
%o str+='if ('+str2+'=='+tn+') document.print(++cc, ":", '+str3+', "<br>")';
%o eval(str);
%o ccc[cccc++ ]=cc;
%o document.print('****<br>');
%o }
%o document.write(ccc);
%Y Cf. A067059, A047993, A039744.
%Y Cf. A002838. [From _R. J. Mathar_, Sep 20 2008]
%Y Cf. A188181 (columns 1, 2).
%K nonn
%O 0,4
%A _Jon Perry_, Nov 19 2002
%E Edited and extended to 12 terms by _Robert G. Wilson v_, Nov 23 2002
%E Further terms from _Max Alekseyev_, May 24 2007
%E a(0)=1 prepended by _Alois P. Heinz_, May 28 2016
|
