OFFSET
0,3
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*2} (d*s_d))^((i*s_i^2-s_i)/2) * (sum {d|i} (d*s_d))^s_i or {i=j == 0 mod 4} (sum {d|i} (d*s_d))^(i*s_i^2) or {i=j == 2 mod 4} (sum {d|i} (d*s_d))^(i*s_i^2-s_i) * (sum {d|i/2} (d*s_d))^(2*s_i) or {i != j} (sum {d|lcm(i, j, 2)} (d*s_d))^(2*i*j*s_i*s_j/lcm(2*i*j)).
CROSSREFS
KEYWORD
nonn
AUTHOR
Christian G. Bower, Jan 15 1998, Jun 15 1998, Dec 05 2003
EXTENSIONS
Formula corrected by Sean A. Irvine and Christian G. Bower, Jul 13 2012
STATUS
approved