OFFSET
1,3
COMMENTS
FORMULA
MATHEMATICA
Do[f=Sum[Prime[k], {k, 1, 2^n}]; If[PrimeQ[f], Print[{n, f}]], {n, 0, 32}]
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Alexander Adamchuk, Aug 22 2006
EXTENSIONS
Edited by Robert G. Wilson v, Aug 26 2006
a(7)-a(9) from Amiram Eldar, Jul 01 2024
STATUS
approved