%I #11 Oct 11 2020 13:44:58
%S 5,11,19,79,113,251,401,709,947,1579,1847,2063,5077,7603,9049,10457,
%T 11621,17509,18353,19433,21911,22853,24551,27073,30809,33923,34213,
%U 37781,39313,39623,45757,46091,47779,51241,53381,56299,58537,67927
%N Primes which are the sum of the first k nonprimes for some k >= 2.
%C The k's are: 2, 3, 4, 9, 11, 17, 22, 30, 35, 46, 50, 53, 85, 105, 115, 124, ..., . - _Robert G. Wilson v_, Apr 28 2007
%H Harvey P. Dale, <a href="/A128927/b128927.txt">Table of n, a(n) for n = 1..1000</a>
%e 1+4+6+8+9+10+12+14+15+16+18=113, a prime. The subtotals were taken up to and including 4,6,8,18,26,33,44,50,64,69,74,115,138,150.
%t lst = {}; s = 0; Do[ If[ !PrimeQ@ n, s = s + n; If[ PrimeQ@ s, AppendTo[lst, s]]], {n, 460}]; lst (* _Robert G. Wilson v_ *)
%t Select[Accumulate[Select[Range[600],!PrimeQ[#]&]],PrimeQ] (* _Harvey P. Dale_, Oct 11 2020 *)
%Y Cf. A018252.
%K nonn
%O 1,1
%A _J. M. Bergot_, Apr 25 2007
%E Edited and extended by _Robert G. Wilson v_, Apr 28 2007
|