%I #5 May 27 2012 12:06:56
%S 5,9,11,15,17,19,21,25,27,29,31,33,35,37,45,49,71,79,81,83,85,87,91,
%T 95,97,99,101,103,105,107,109,111,115,117,119,121,125,129,131,135,155,
%U 159,161,163,165,169,171,173,175,177,179,181,183,185,193,195,199,201,203,205
%N Numbers n such that 4 divides prime(1)+...+prime(n).
%H Harvey P. Dale, <a href="/A111318/b111318.txt">Table of n, a(n) for n = 1..1000</a>
%t Module[{nn=300,prs},prs=Accumulate[Prime[Range[nn]]];Select[Range[ nn], Divisible[prs[[#]],4]&]] (* _Harvey P. Dale_, May 27 2012 *)
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Nov 05 2005
|