%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