OFFSET
1,2
FORMULA
Equals limit n->infinity A086714(n)^(1/2^n).
EXAMPLE
1.2804978085416570666853234602090892787820401965229548913582461026432...
MATHEMATICA
exact = 32; terms = 200; b = ConstantArray[0, terms]; b[[1]] = N[Log[4], 100]; Do[b[[n]] = b[[n - 1]] + If[n > exact, b[[n - 1]], Log[Exp[b[[n - 1]]] - 1]] - Log[2], {n, 2, terms}]; Do[Print[Exp[b[[n]]/2^n]], {n, 1, Length[b]}] (* after Jon E. Schoenfield *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Vaclav Kotesovec, Dec 09 2014
STATUS
approved