A121248 Numbers k such that the sum of the first 2^k primes is a prime.
0, 1, 2, 6, 9, 10, 32, 36, 55
Offset: 1
Programs
-
Mathematica
Do[f=Sum[Prime[k],{k,1,2^n}]; If[PrimeQ[f],Print[{n,f}]],{n,0,32}]
Formula
Extensions
Edited by Robert G. Wilson v, Aug 26 2006
a(7)-a(9) from Amiram Eldar, Jul 01 2024
Comments