OFFSET
0,3
COMMENTS
The final primes in the sums are 2, 2, 3, 5, 7, 13, 19, 29, 43, 67, 97, 139, 199, 293, 433, 631, 929, ..., .
MATHEMATICA
p = 2; k = s = 0; lst = {}; Do[ While[s < 2^n, s = s + p; p = NextPrime@ p; k++]; AppendTo[lst, k], {n, 50}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 12 2019
STATUS
approved