A111327 Numbers k such that 13 divides prime(1) + ... + prime(k).

49, 61, 67, 87, 92, 117, 119, 126, 131, 160, 166, 179, 203, 253, 269, 295, 297, 299, 319, 344, 348, 360, 381, 393, 408, 418, 429, 437, 442, 451, 485, 496, 502, 506, 508, 510, 532, 541, 553, 559, 565, 585, 591, 623, 626, 647, 652, 656, 662, 672, 692, 712, 715, 733, 736

Offset

1,1

Links

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

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A316618 A039472 A135145 * A184033 A178951 A202001

Adjacent sequences: A111324 A111325 A111326 * A111328 A111329 A111330

Keyword

nonn

Author

N. J. A. Sloane, Nov 05 2005

Status

approved