A329995 Decimal expansion of the solution of 1/x^3 + 1/3^x = 1.

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

Offset

1,3

Links

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

Formula

x^3 + 3^x = x^3 * 3^x.

Example

x = 1.12177497902956545655218...

Mathematica

r = x /. FindRoot[1/x^3 + 1/3^x == 1, {x, 1, 10}, WorkingPrecision -> 120]
RealDigits[r][[1]]  (* A329995 *)
Plot[1/x^2 + 1/2^x - 1, {x, 1, 2}]

Prog

(PARI) solve(x=1, 2, 1/x^3 + 1/3^x - 1) \\ Michel Marcus, Jul 11 2020

Crossrefs

Cf. A329996, A329997.

Sequence in context: A078104 A072280 A217106 * A086054 A256392 A011134

Adjacent sequences: A329992 A329993 A329994 * A329996 A329997 A329998

Keyword

nonn,cons,easy

Author

Clark Kimberling, Jan 03 2020

Status

approved