login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Partial sums of A073602.
0

%I #4 Jun 17 2015 09:14:31

%S 2,9,20,49,66,169,306,437,460,609,682,999,1066,1247,1410,1537,1770,

%T 2257,2814,2911,3504,3871,3984,4183,5432,7575,7622,8239,8502,9379,

%U 9398,10611,10960,11537,11920,12231,12874,12877,14028,14359,15036,17557,17954,19107,20488

%N Partial sums of A073602.

%C By definition of A073602, a(n) is divisible by prime(n).

%F a(n) = A258052(n)*prime(n).

%o (PARI) vsearch(n, v)=local(j, s); j=1; s=matsize(v)[2]; while(j<=s&&n!=v[j], j++); j<=s;

%o {m=54; v=[]; n=1; while(n<=m, p=2; while(vsearch(p, v)||((sum(j=1, matsize(v)[2], v[j])+p)%prime(n))>0, p=nextprime(p+1)); v=concat(v, p); n++); for (i=1, #v, print1(sum(k=1, i, v[k]), ", "));} \\ adapted from A073602

%Y Cf. A073602, A258052.

%K nonn

%O 1,1

%A _Michel Marcus_, Jun 17 2015