A240243 Decimal expansion of Integral_(x=c..infinity) (log(x)/(1+x))^2 dx, where c = A141251 = e^(LambertW(1/e)+1) corresponds to the maximum of the function.

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

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..5000

Formula

A195055 = A013661 + A240242 + A240243.

Example

1.50645874258974594605808179809250890162965990098722060615212114365006356...

Mathematica

w = ProductLog[1/E]; w + w^2 + 2 *Log[1+w]*(1+w) - 2*PolyLog[2, -w] // RealDigits[#, 10, 100]& // First

Prog

(PARI) (w -> w + w^2 + 2*(1+w)*log(1+w) - 2*polylog(2, -w))(lambertw(exp(-1)))

Crossrefs

Cf. A013661, A141251, A195055, A240242.

Sequence in context: A190914 A153458 A096287 * A330864 A144483 A098403

Adjacent sequences: A240240 A240241 A240242 * A240244 A240245 A240246

Keyword

nonn,cons

Author

Jean-François Alcover, Apr 03 2014

Status

approved