|
%I #6 Jul 15 2019 15:40:44
%S 1,1,1,5,17,89,769,5389,36385,448433,5058881,51656021,792623281,
%T 10548735625,141646268737,2746494730589,42803661694529,
%U 688682904155489,16532731961057665,317686449365041573,6296248862732350801,159762846613265335481,3488151227855502313601
%N E.g.f. A(x) satisfies: A(x) = (1 + x) * Product_{k>=2} A(x^k)^(1/k).
%F E.g.f.: Product_{k>=1} (1 + x^k)^(A074206(k)/k).
%t 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]!
%Y Cf. A074206, A129373, A307605, A309174.
%K nonn
%O 0,4
%A _Ilya Gutkovskiy_, Jul 15 2019
|
