OFFSET
1,2
COMMENTS
LINKS
FORMULA
a(n) = sum {1*s_1+2*s_2+...=n} (fixA[s_1, s_2, ...]/(1^s_1*s_1!*2^s_2*s2!*...)) where fixA[s_1, s_2, ...] = prod {i>=j>=1} f(i, j, s_i, s_j) where f(i, j, s_i, s_j) = {i=j, odd} (sum {d|i} (d*s_d))^(s_i*(i*s_i+1)/2) * (-1 + sum {d|i} (d*s_d))^(s_i*(i*s_i-1)/2) or {i=j, even} (sum {d|i and d/i is odd} (d*s_d))^s_i * (sum {d|i} (d*s_d))^(i*s_i^2/2) * (-1 + sum {d|i} (d*s_d))^(s_i*(i*s_i-2)/2) or {i < j} (sum {d|lcm(i, j)} (d*s_d))^(gcd(i, j)*s_i*s_j) or {i > j} (-1 + sum {d|lcm(i, j)} (d*s_d))^(gcd(i, j)*s_i*s_j)
CROSSREFS
KEYWORD
nonn
AUTHOR
Christian van den Bosch (cjb(AT)cjb.ie), Jan 03 2003
EXTENSIONS
Edited, corrected and extended with formula by Christian G. Bower, Dec 12 2003
STATUS
approved