A226469 Decimal expansion of the maximum value reached by the function -2*x*log(x)-2*x*(1-x) in the interval (0,1].

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

Offset

0,1

Comments

Equals 2(c-c^2) where c = A106533 (the rumor constant).

Links

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

Example

0.3238051189459574298236009809879772906045103360482538554...

Mathematica

EE = -1/2 ProductLog[-2/(E^2)]; RealDigits[N[2*(EE-EE^2), 100]][[1]]

Prog

(PARI) {a = solve(x=0.1, x=0.5, 2*log(x) - 4*x + 4)}; -2*a*log(a)-2*a*(1-a) \\ G. C. Greubel, Nov 16 2017

Crossrefs

Cf. A106533.

Sequence in context: A227104 A171721 A225695 * A073341 A227470 A218396

Adjacent sequences: A226466 A226467 A226468 * A226470 A226471 A226472

Keyword

nonn,cons

Author

José María Grau Ribas, Jun 08 2013

Extensions

Offset corrected by Rick L. Shepherd, Jan 02 2014

More terms from Alois P. Heinz, Jan 11 2014

Status

approved