A215016 Decimal expansion of the product of 1 - 1/2^2^n over all n >= 0.

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

Offset

0,1

Comments

Can be used to efficiently compute A014571: A014571 = 1/2 - (1/4) * A215016.

Links

Table of n, a(n) for n=0..81.

Joerg Arndt, Matters Computational (The Fxtbook), p.727 (rel. 38.1-5).

R. Schroeppel and R. W. Gosper, HACKMEM #122 (1972).

Formula

Equals Sum_{n>=0} A106400(n)/2^n. - Robert FERREOL, Jan 10 2022

From Amiram Eldar, Feb 19 2024: (Start)

Equals Product_{n>=0} (1 - 1/A001146(n)).

Equals 2/A258716.

Equals 1/(3/2 + A258714). (End)

Example

0.35018386543956960886655452696617886764208650217692176970648233860482563...

Mathematica

RealDigits[NProduct[1 - 1/2^2^n, {n, 0, Infinity}, WorkingPrecision -> 120]][[1]] (* Alonso del Arte, Jul 31 2012 *)

Prog

(PARI) prodinf(n=0, 1-1.>>2^n)

Crossrefs

Cf. A001146, A014571, A106400, A258714, A258716.

Sequence in context: A058813 A336018 A132701 * A212394 A354642 A010614

Adjacent sequences: A215013 A215014 A215015 * A215017 A215018 A215019

Keyword

nonn,cons

Author

Charles R Greathouse IV, Jul 31 2012

Status

approved