A272192 Decimal expansion of the radius of convergence of the generating function of A000625 (alcohol stereoisomers enumeration).

3, 0, 4, 2, 1, 8, 4, 0, 9, 0, 7, 4, 6, 4, 6, 5, 1, 3, 0, 8, 1, 9, 0, 5, 8, 9, 3, 9, 4, 4, 2, 6, 3, 8, 1, 7, 5, 3, 4, 6, 7, 2, 3, 4, 9, 1, 4, 0, 9, 8, 5, 5, 2, 1, 2, 9, 0, 6, 7, 1, 2, 1, 8, 0, 0, 8, 0, 5, 4, 6, 1, 8, 9, 7, 0, 8, 3, 6, 2, 6, 1, 4, 4, 0, 1, 3, 7, 4, 3, 9, 9, 6, 2, 3, 1, 3, 2, 8, 4, 2, 8, 9

Offset: 0

Author

Jean-François Alcover, Apr 22 2016

Keywords

• nonn
• cons

Comments

Data were computed from Vaclav Kotesovec's data in A239803.

Examples

			0.304218409074646513081905893944263817534672349140985521290671218...
		

References

• Steven R. Finch, Mathematical Constants, Cambridge, 2003, Section 5.6., p. 301.

Crossrefs

Cf. A000625, A239803.

Programs

Mathematica

(* This approximation gives 9 correct digits: *)
For[A = 1 + x; m = 3, m <= 10, m++, A = 1 + x/3 (A^3 + 2 (Normal[A] /. x -> x^3)) + O[x]^m];
A = A // Normal;
S0[x_] = PadeApproximant[A, {x, 0, {3, 2}}];
sol = S /. Solve[S == 1 + x/3 (S^3 + 2 S0[x^3]), S];
r = x /. FindRoot[sol[[1]] == sol[[3]], {x, 1/3}] // Chop;
RealDigits[r][[1]]

Formula

Equals 1 / A239803.