OFFSET
0,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..10000
Seqfan Mailing List Thread, 2(x - 1)^x = x^x, with contributions from Juri-Stepan Gerasimov, Robert G. Wilson v, Neil Fernandez, Simon Plouffe, Walter Kehowski, G. C. Greubel.
FORMULA
x = 1 / (1 + W(log(2)/2)/log(2)), where W(x) is the Lambert W-function; from G. C. Greubel.
EXAMPLE
0.7228920811831477955323653512197716743558777367686417201254365151991...
MATHEMATICA
RealDigits[1/(1 + LambertW[Log[2]/2]/Log[2]), 10, 100][[1]] (* G. C. Greubel, Mar 02 2018 *)
PROG
(PARI) 1/(1 + lambertw(log(2)/2)/log(2)) \\ G. C. Greubel, Mar 02 2018
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Hugo Pfoertner, Mar 02 2018
STATUS
approved