OFFSET
0,3
FORMULA
For a list n(1), n(2), n(3), ..., let fixF[n] = prod{i, j >= 1}(sum{d|[ i, j ]}(d*n(d))^((i, j)*n(i)*n(j)-(i=j)n(i))).
a(n) = sum {1*s_1+2*s_2+...=n} (fix A[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} (sum {d|i} (d*s_d))^(i*s_i^2-s_i) or {i != j} (sum {d|lcm(i, j)} (d*s_d))^(2*gcd(i, j)*s_i*s_j)
CROSSREFS
KEYWORD
nonn
AUTHOR
Christian G. Bower, Feb 15 1998, May 15 1998 and Dec 03 2003
STATUS
approved