A251794 - OEIS

%I #11 Feb 27 2017 02:53:29

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

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

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

%N Decimal expansion of a constant related to A086714.

%F Equals limit n->infinity A086714(n)^(1/2^n).

%e 1.2804978085416570666853234602090892787820401965229548913582461026432...

%t 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_ *)

%Y Cf. A086714, A251702.

%K nonn,cons

%O 1,2

%A _Vaclav Kotesovec_, Dec 09 2014