%I #14 May 14 2024 03:58:45

%S 3,9,11,17,25,29,31,51,53,57,71,77,85,89,91,101,103,105,131,147,153,

%T 159,167,173,195,209,239,245,259,261,283,303,317,349,357,405,453,459,

%U 475,479,491,503,505,507,511,517,531,533,545,555,565,569,583,585,591,603,617,625

%N Numbers k such that 10 divides prime(1) + ... + prime(k).

%H Amiram Eldar, <a href="/A111324/b111324.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale)

%t Flatten[Position[Accumulate[Prime[Range[650]]],_?(Divisible[#,10]&)]] (* _Harvey P. Dale_, Sep 25 2011 *)

%o (PARI) lista(pmax) = {my(s = 0, k = 0); forprime(p = 2, pmax, k++; s += p; if(!(s % 10), print1(k, ", ")));} \\ _Amiram Eldar_, May 14 2024

%Y Cf. A007504, A103208, A111318, A111319, A111320, A111321, A111322, A111323, A111325, A111326, A111327.

%K nonn

%O 1,1

%A _N. J. A. Sloane_, Nov 05 2005