|
|
A243746
|
|
Number of compositions of n^2 with exactly n occurrences of the largest part.
|
|
2
|
|
|
1, 1, 1, 21, 686, 108598, 134190162, 581266801787, 7792898359869376, 343349252968004533986, 60917528224825622999788393, 57691110936849283646013592507915, 280564704602761525363382338982479319450, 5619591974217690324311922622790661532819536973
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(3) = 21: 333, 111222, 112122, 112212, 112221, 121122, 121212, 121221, 122112, 122121, 122211, 211122, 211212, 211221, 212112, 212121, 212211, 221112, 221121, 221211, 222111.
|
|
MAPLE
|
b:= proc(n, p, i) option remember; `if`(n=0, p!,
`if`(i<1, 0, add(b(n-i*j, p+j, i-1)/j!, j=0..n/i)))
end:
a:= n-> add(b(n^2-i*n, n, i-1)/n!, i=0..n):
seq(a(n), n=0..15);
|
|
MATHEMATICA
|
b[n_, p_, i_] := b[n, p, i] = If[n == 0, p!,
If[i < 1, 0, Sum[b[n - i*j, p + j, i - 1]/j!, {j, 0, n/i}]]];
a[n_] := Sum[b[n^2 - i*n, n, i - 1]/n!, {i, 0, n}];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|