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

Links

Table of n, a(n) for n=1..105.

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

Cf. A086714, A251702.

Sequence in context: A118292 A160584 A191334 * A321595 A336405 A188924

Adjacent sequences: A251791 A251792 A251793 * A251795 A251796 A251797

Keyword

nonn,cons

Author

Vaclav Kotesovec, Dec 09 2014

Status

approved