A112044 Let b(0)=1/2, b(n) = (b(n-1)+Prime[n])/2; sequence gives 2^(n+1)*b(n).

1, 5, 17, 57, 169, 521, 1353, 3529, 8393, 20169, 49865, 113353, 264905, 600777, 1305289, 2845385, 6318793, 14052041, 30042825, 65170121, 139619017, 292711113, 624061129, 1320315593, 2813487817, 6068267721, 12846262985, 26670688969

Offset

0,2

Comments

An integer sequence as a power of 2 representation of the running average of the primes (with 1 as the zeroth element).

Links

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

Mathematica

a[0] = 1/2; a[n_] := a[n] = (a[n - 1] + Prime[n])/2; Table[2^(n + 1)*a[n], {n, 0, 27}]

Crossrefs

Sequence in context: A146271 A145371 A347750 * A027030 A033538 A027093

Adjacent sequences: A112041 A112042 A112043 * A112045 A112046 A112047

Keyword

nonn

Author

Roger L. Bagula, Nov 28 2005

Extensions

More terms from Robert G. Wilson v, Nov 29 2005

Status

approved