|
Search: id:A099825
|
|
|
| A099825 |
|
Sum of the first 2^n primes. |
|
+0
5
|
|
| 2, 5, 17, 77, 381, 1851, 8893, 41741, 191755, 868151, 3875933, 17120309, 74950547, 325590115, 1405167561, 6029676711, 25750781177, 109495928099, 463852117169, 1958476902435, 8244703036797, 34615624751259, 144991244981985
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
LINKS
|
Robert G. Wilson v, Table of n, a(n) for n = 0..30
C. Hilliard, Sumprimes.
|
|
MATHEMATICA
|
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; f[0] = 2; f[n_] := f[n] = Block[{k = 0, mx = 2^n/2, np = Prime[2^n/2], s = f[n - 1]}, While[k < mx, k++; np = NextPrim@np; s = s + np]; s]; Table[ f@n, {n, 0, 23)] (* Robert G. Wilson v Aug 24 2006 *)
|
|
CROSSREFS
|
Cf. A000040, A006988, A007504, A099824, A099826, A121248.
Sequence in context: A081046 A118100 A129591 this_sequence A014288 A020096 A054499
Adjacent sequences: A099822 A099823 A099824 this_sequence A099826 A099827 A099828
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 25 2004
|
|
|
Search completed in 0.002 seconds
|
