A307661 E.g.f. A(x) satisfies: A(x) = exp(-x) * A(x^2)^2*A(x^3)^3*A(x^4)^4* ... *A(x^k)^k* ...
1, -1, -3, -7, -95, 699, -1739, 106973, 236097, 5525495, 157003021, -1778692191, -15439204703, -1112216292877, -2594716702395, -466679409407611, -2408062589228159, -51920010551722257, 965605721357034397, 88877767053922329545, 2657651357187708962721, 161866621274268475146539
Offset: 0
Keywords
Examples
E.g.f.: A(x) = 1 - x - 3*x^2/2! - 7*x^3/3! - 95*x^4/4! + 699*x^5/5! - 1739*x^6/6! + 106973*x^7/7! + 236097*x^8/! + 5525495*x^9/9! + ...
Programs
-
Mathematica
terms = 21; A[] = 1; Do[A[x] = Exp[-x] Product[A[x^k]^k, {k, 2, terms}] + O[x]^(terms + 1) // Normal, terms + 1]; CoefficientList[A[x], x] Range[0, terms]!