A309175 E.g.f. A(x) satisfies: A(x) = (1 + x) * Product_{k>=2} A(x^k)^(1/k).
1, 1, 1, 5, 17, 89, 769, 5389, 36385, 448433, 5058881, 51656021, 792623281, 10548735625, 141646268737, 2746494730589, 42803661694529, 688682904155489, 16532731961057665, 317686449365041573, 6296248862732350801, 159762846613265335481, 3488151227855502313601
Offset: 0
Keywords
Programs
-
Mathematica
terms = 22; A[] = 1; Do[A[x] = (1 + x) Product[A[x^k]^(1/k), {k, 2, terms}] + O[x]^(terms + 1) // Normal, terms + 1]; CoefficientList[A[x], x] Range[0, terms]!
Formula
E.g.f.: Product_{k>=1} (1 + x^k)^(A074206(k)/k).