A308379 E.g.f. A(x) satisfies: A(x) = x * Product_{k>=1} 1/(1 - A(x^k))^(1/k).

1, 2, 15, 152, 2255, 40944, 938161, 25026896, 777966129, 27346727600, 1077001807871, 46870231698168, 2235954785893231, 115950345421719704, 6496012991027031585, 390935629387700612384, 25153144712405994085409, 1722934940168892344912928, 125180348349211811174365615

Offset

1,2

Links

Table of n, a(n) for n=1..19.

Formula

E.g.f. A(x) satisfies: A(x) = x * exp(Sum_{k>=1} Sum_{d|k} A(x^d)^(k/d) / k).

Mathematica

terms = 19; A[_] = 0; Do[A[x_] = x Product[1/(1 - A[x^k])^(1/k), {k, 1, terms}] + O[x]^(terms + 1) // Normal, terms + 1]; CoefficientList[A[x], x] Range[0, terms]! // Rest

Crossrefs

Cf. A050383, A308369, A308380.

Sequence in context: A325060 A002103 A191364 * A233832 A185756 A362364

Adjacent sequences: A308376 A308377 A308378 * A308380 A308381 A308382

Keyword

nonn

Author

Ilya Gutkovskiy, May 23 2019

Status

approved