OFFSET
1,1
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..10000
MATHEMATICA
Position[Accumulate[Prime[Range[400]]], _?(Divisible[#, 11] &)] // Flatten (* Amiram Eldar, May 14 2024 *)
PROG
(Python)
from sympy import nextprime
def aupto(limit):
p, s, alst = 2, 2, []
for k in range(1, limit+1):
if s == 0: alst.append(k)
p = nextprime(p); s = (s + p)%11
return alst
print(aupto(759)) # Michael S. Branicky, Aug 17 2021
(PARI) lista(pmax) = {my(s = 0, k = 0); forprime(p = 2, pmax, k++; s += p; if(!(s % 11), print1(k, ", "))); } \\ Amiram Eldar, May 14 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 05 2005
STATUS
approved