A099826 Sum of the first 3^n primes.

2, 10, 100, 1264, 15116, 171148, 1864190, 19697700, 203534530, 2067129306, 20706364528, 205144046742, 2014349179358, 19632546354498, 190150622868298, 1831906588192414, 17567504017456404, 167794196312059488, 1597037992049539274

Offset: 0

Author

Robert G. Wilson v, Oct 25 2004

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 0..36 (calculated using Kim Walisch's primesum program)
• Cino Hilliard, Sum first 2^n Primes. [Link corrected by Alexey Beshenov, Jan 25 2009] [broken link]
• Kim Walisch, Sum of the primes below x (primesum).

Crossrefs

Cf. A000040, A000244, A006988, A007504, A038833, A099824, A099825.

Programs

Mathematica

NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; k = p = 1; s = 0; Do[ While[p = NextPrim[p]; s = s + p; k < 10^n, k++ ]; k++; Print[s], {n, 0, 16}]

Formula

a(n) = A007504(A000244(n)). - Amiram Eldar, Jul 01 2024

Extensions

More terms from Cino Hilliard, Jan 14 2006