login
Sum of the first 3^n primes.
6

%I #16 Jul 01 2024 02:31:45

%S 2,10,100,1264,15116,171148,1864190,19697700,203534530,2067129306,

%T 20706364528,205144046742,2014349179358,19632546354498,

%U 190150622868298,1831906588192414,17567504017456404,167794196312059488,1597037992049539274

%N Sum of the first 3^n primes.

%H Amiram Eldar, <a href="/A099826/b099826.txt">Table of n, a(n) for n = 0..36</a> (calculated using Kim Walisch's primesum program)

%H Cino Hilliard, <a href="http://groups.msn.com/First300billionprimes/sumprimeslt2n.msnw">Sum first 2^n Primes</a>. [Link corrected by Alexey Beshenov, Jan 25 2009] [broken link]

%H Kim Walisch, <a href="https://github.com/kimwalisch/primesum">Sum of the primes below x (primesum)</a>.

%F a(n) = A007504(A000244(n)). - _Amiram Eldar_, Jul 01 2024

%t 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}]

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

%K nonn

%O 0,1

%A _Robert G. Wilson v_, Oct 25 2004

%E More terms from _Cino Hilliard_, Jan 14 2006