%I
%S 5,8,13,22,33,40,47,50,56,63,72,84,86,104,106,110,115,126,128,139,148,
%T 150,154,157,160,180,184,186,188,200,209,220,228,230,232,236,238,240,
%U 244,253,270,274,300,302,305,322,324,331,339,354,367,371,384,415,417,420,428,433
%N Numbers n such that 7 divides prime(1)+...+prime(n).
%H Harvey P. Dale, <a href="/A111321/b111321.txt">Table of n, a(n) for n = 1..1000</a>
%t Position[Accumulate[Prime[Range[500]]],_?(Divisible[#,7]&)]//Flatten (* _Harvey P. Dale_, Oct 06 2017 *)
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Nov 05 2005
