A111326 Numbers k such that 12 divides prime(1) + ... + prime(k).

97, 99, 103, 105, 107, 111, 119, 121, 125, 129, 161, 163, 169, 175, 177, 179, 185, 195, 199, 203, 205, 207, 211, 213, 233, 235, 237, 273, 305, 307, 309, 311, 329, 335, 337, 343, 345, 347, 353, 357, 421, 423, 425, 439, 443, 445, 447, 449, 455, 463, 511, 513, 515, 539

Offset: 1

Author

N. J. A. Sloane, Nov 05 2005

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A007504, A103208, A111318, A111319, A111320, A111321, A111322, A111323, A111324, A111325, A111327.

Programs

Mathematica

Position[Accumulate[Prime[Range[400]]], ?(Divisible[#, 12] &)] // Flatten (* _Amiram Eldar, May 14 2024 *)

PARI

lista(pmax) = {my(s = 0, k = 0); forprime(p = 2, pmax, k++; s += p; if(!(s % 12), print1(k, ", ")));} \\ Amiram Eldar, May 14 2024