This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A111320 #15 May 14 2024 03:58:59 %S A111320 57,97,99,103,105,107,111,113,119,121,123,125,127,129,161,163,169,175, %T A111320 177,179,185,187,195,197,199,203,205,207,211,213,217,233,235,237,273, %U A111320 293,295,297,301,303,305,307,309,311,327,329,331,333,335,337,339,343,345,347,349 %N A111320 Numbers k such that 6 divides prime(1) + ... + prime(k). %C A111320 Odd terms in A103208. - _Robert Israel_, Jan 26 2019 %H A111320 Robert Israel, <a href="/A111320/b111320.txt">Table of n, a(n) for n = 1..10000</a> %p A111320 P:= [seq(ithprime(i),i=1..1000)]: %p A111320 L:= ListTools:-PartialSums(P): %p A111320 select(t -> L[t] mod 6 = 0, [seq(i,i=1..1000)]); # _Robert Israel_, Jan 26 2019 %t A111320 Position[Accumulate[Prime[Range[400]]], _?(Divisible[#, 6] &)] // Flatten (* _Amiram Eldar_, May 14 2024 *) %o A111320 (PARI) lista(pmax) = {my(s = 0, k = 0); forprime(p = 2, pmax, k++; s += p; if(!(s % 6), print1(k, ", ")));} \\ _Amiram Eldar_, May 14 2024 %Y A111320 Cf. A007504, A103208, A111318, A111319, A111321, A111322, A111323, A111324, A111325, A111326, A111327. %K A111320 nonn %O A111320 1,1 %A A111320 _N. J. A. Sloane_, Nov 05 2005