A114041 Decimal expansion of -x, the real root of the power series with semiprime coefficients.

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

Offset: 1

Author

Jonathan Vos Post, Feb 01 2006

Keywords

• cons
• nonn

Comments

This is the semiprime analog of A088751.

Terms computed by T. D. Noe.

Examples

			-0.36986874348484794489584877...
		

Crossrefs

Cf. A001358, A072508, A088751.

Programs

Mathematica

A001358:= Select[Range[3000], PrimeOmega[#] == 2 &]; RealDigits[-x/.FindRoot[-1 == Sum[A001358[[j]]*x^j, {j, 500}], {x, {0, 0.5}}, WorkingPrecision -> 105], 10, 100][[1]]//First (* G. C. Greubel, Dec 31 2019 *)

Formula

Digits of -x where x is the real root of 1 + 4x + 6x^2 + 9x^3 + 10x^4 + 14x^5 ... = 1 + Sum_{i>=1} A001358(i)*x^i.