A306654 Decimal expansion of least zero of Sum_{k>=1} 1/(k! - x).

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

Offset

1,2

Comments

The first 4 zeros: 1.465... < 4.437... < 18.594... < 97.130...; if z(n) is the n-th zero, then n! < z(n) < (n+1)!.

Links

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

Example

Least zero = 1.4657888006757243698...

Mathematica

f[x_] := Sum[1/(n! - x), {n, 1, 30}]
Plot[f[x], {x, 0, 2}]
x  /. NSolve[f[x] == 0, x, 10, WorkingPrecision -> 50]
FindRoot[f[x], {x, 1.46579}, WorkingPrecision -> 50]
f[1.465788800675724369]

Crossrefs

Cf. A324330.

Sequence in context: A343470 A199289 A306341 * A368358 A114602 A110000

Adjacent sequences: A306651 A306652 A306653 * A306655 A306656 A306657

Keyword

nonn,cons

Author

Clark Kimberling, Mar 03 2019

Status

approved