# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a251794
Showing 1-1 of 1

%I A251794 #11 Feb 27 2017 02:53:29
%S A251794 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 A251794 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 A251794 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 A251794 Decimal expansion of a constant related to A086714.
%F A251794 Equals limit n->infinity A086714(n)^(1/2^n).
%e A251794 1.2804978085416570666853234602090892787820401965229548913582461026432...
%t A251794 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 A251794 Cf. A086714, A251702.
%K A251794 nonn,cons
%O A251794 1,2
%A A251794 _Vaclav Kotesovec_, Dec 09 2014

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE