OFFSET
0,3
LINKS
FORMULA
a(n) = Sum_{i=0..n} (-1)^i * C(n,i) * A246106(n,n-i).
EXAMPLE
a(2) = 5:
[1 1] [1 2] [1 2] [1 1] [1 2]
[1 2] [2 2] [1 2] [2 2] [2 1].
MAPLE
b:= proc(n, i) option remember; `if`(n=0, [[]],
`if`(i<1, [], [b(n, i-1)[], seq(map(p->[p[], [i, j]],
b(n-i*j, i-1))[], j=1..n/i)]))
end:
A:= proc(n, k) option remember; add(add(k^add(add(i[2]*j[2]*
igcd(i[1], j[1]), j=t), i=s) /mul(i[1]^i[2]*i[2]!, i=s)
/mul(i[1]^i[2]*i[2]!, i=t), t=b(n$2)), s=b(n$2))
end:
a:= n-> add(A(n, n-i)*(-1)^i*binomial(n, i), i=0..n):
seq(a(n), n=0..10);
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Mar 13 2015
STATUS
approved