%I #19 Jul 01 2024 02:30:40
%S 2,41,2427,132059,6426919,291627051,12646104721,531741567755,
%T 21868328382007,884528298065271,35319715358896709,1395934334687210019,
%U 54710988941767714851,2129404515458094306737,82391816104703313499231,3171892875586735205701385,121577571158289668158700601
%N Sum of the first 6^n primes.
%H Amiram Eldar, <a href="/A113634/b113634.txt">Table of n, a(n) for n = 0..22</a> (calculated using Kim Walisch's primesum program)
%H Kim Walisch, <a href="https://github.com/kimwalisch/primesum">Sum of the primes below x (primesum)</a>.
%F a(n) = A007504(6^n).
%e The first 6^1 primes add up to 41.
%t t = {}; c = 1; k = 3; s = 2; Do[While[c < 6^n, If[PrimeQ@k, c++; s += k]; k += 2]; Print@s; AppendTo[t, s], {n, 0, 9}]; t (* _Robert G. Wilson v_, Jan 17 2006 *)
%Y Cf. A000400, A007504, A058192, A099825, A099826, A113633, A113635.
%K nonn
%O 0,1
%A _Cino Hilliard_, Jan 15 2006
%E a(13)-a(16) from _Amiram Eldar_, Jul 01 2024
|