OFFSET
0,2
COMMENTS
The final primes in the sums are 2, 5, 23, 97, 337, 1153, 3943, 13441, 45197, 151091, 502259, 1662377, 5477083, 17993477, 58954411, 192682537, 628420129, 2045812157, 6649205951, 21579536893, 69943284097, 226431374423, 732253012171, 2365707119579, 7636102747789, 24627776205037, 79368662592367, 255604186937213, 822628809813047, ..., .
MATHEMATICA
p = 2; k = s = 0; lst = {}; Do[ While[s < 10^n, s = s + p; p = NextPrime@ p; k++]; AppendTo[lst, k; Print@ k], {n, 20}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 12 2019
STATUS
approved