|
%I #6 Oct 01 2013 17:58:05
%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 C. Hilliard, <a href="http://groups.msn.com/First300billionprimes/sumprimeslt2n.msnw">Sum first 2^n Primes</a>. [Link corrected by Alexey Beshenov, Jan 25 2009]
%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, A006988, A007504, A099824, A099825.
%K nonn
%O 0,1
%A _Robert G. Wilson v_, Oct 25 2004
%E More terms from _Cino Hilliard_, Jan 14 2006
|
