OFFSET
1,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..440
FORMULA
INVERTi transform of (A006973 with offset 1) = (1, 2, 9, 24, 130, 720, ...).
Coefficients of ( S(n, x)/(x + S(n, x)) ), where S(n, x) = Sum_{j=0..n+2} A006973(j)*x^j. - G. C. Greubel, Jun 10 2021
EXAMPLE
MATHEMATICA
A006973[n_]:= A006973[n]= If[n<4, Max[n-1, 0], (n-1)!*(1 + Sum[k*(-A006973[k]/k!)^(n/k), {k, Most[Divisors[n]]}])];
S[n_, x_]:= Sum[A006973[j]*x^j, {j, 0, n+2}];
Rest@With[{p = 100}, CoefficientList[Series[S[p, x]/(x + S[p, x]), {x, 0, 60}], x]] (* G. C. Greubel, Jun 10 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Gary W. Adamson, Feb 15 2009
EXTENSIONS
Terms a(11) onward added by G. C. Greubel, Jun 10 2021
STATUS
approved