OFFSET
1,1
COMMENTS
Odd terms in A103208. - Robert Israel, Jan 26 2019
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
P:= [seq(ithprime(i), i=1..1000)]:
L:= ListTools:-PartialSums(P):
select(t -> L[t] mod 6 = 0, [seq(i, i=1..1000)]); # Robert Israel, Jan 26 2019
MATHEMATICA
Position[Accumulate[Prime[Range[400]]], _?(Divisible[#, 6] &)] // Flatten (* Amiram Eldar, May 14 2024 *)
PROG
(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
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 05 2005
STATUS
approved