|
| |
|
|
A076822
|
|
Number of partitions of the n-th triangular number involving only the numbers 1..n and with exactly n terms.
|
|
3
| |
|
|
1, 1, 2, 5, 12, 32, 94, 289, 910, 2934, 9686, 32540, 110780, 381676, 1328980, 4669367, 16535154, 58965214, 211591218, 763535450, 2769176514, 10089240974, 36912710568, 135565151486, 499619269774, 1847267563742, 6850369296298
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
LINKS
| Max Alekseyev, Table of n, a(n) for n = 1..100
|
|
|
FORMULA
| A067059(n,n+1). T[n*(n-1)/2, n-1, n] with T[ ] defined as in A047993. - Martin Fuller (martin_n_fuller(AT)btinternet.com), Jun 27 2006
|
|
|
EXAMPLE
| 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.
|
|
|
MATHEMATICA
| Needs["DiscreteMath`Combinatorica`"]; f[n_] := Block[{p = Partitions[n(n + 1)/2, n]}, Length[ Select[p, Length[ # ] == n &]]]; Table[ f[n], {n, 1, 13}]
|
|
|
PROG
| [JavaScript] ccc=new Array(); cccc=0; for (n=1; n<11; n++) { str='cc=0; for (i1=1; i1<'+(n+1)+'; i1++)'; str2='i1'; str3='i1'; tn=1; for (i=2; i<=n; i++) { str+='for (i'+i+'=i'+(i-1)+'; i'+i+'<'+(n+1)+'; i'+i+'++)'; str2+='+i'+i; str3+=', ", ", i'+i; tn+=i; } str+='if ('+str2+'=='+tn+') document.write(++cc, ":", '+str3+', "<br>")'; eval(str); ccc[cccc++ ]=cc; document.write('****<br>'); } document.write(ccc);
|
|
|
CROSSREFS
| Cf. A067059, A047993, A039744.
Cf. A002838. [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Sep 20 2008]
Sequence in context: A148282 A148283 A002838 * A143657 A014326 A148284
Adjacent sequences: A076819 A076820 A076821 * A076823 A076824 A076825
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jon Perry (perry(AT)globalnet.co.uk), Nov 19 2002
|
|
|
EXTENSIONS
| Edited and extended to 12 terms by Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 23 2002
Further terms from Max Alekseyev, May 24 2007
|
| |
|
|
