A251794 Decimal expansion of a constant related to A086714.

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, 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, 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

Offset: 1

Author

Vaclav Kotesovec, Dec 09 2014

Keywords

• nonn
• cons

Examples

			1.2804978085416570666853234602090892787820401965229548913582461026432...
		

Crossrefs

Cf. A086714, A251702.

Programs

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 *)

Formula

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