OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
P:= [seq(ithprime(i), i=1..102)]:
PS:= ListTools:-PartialSums(P):
S2:= P[1]*P[2]:
S3:= 0:
for n from 1 to 100 do
S3:= S3 + P[n+2]*S2;
S2:= S2 + P[n+2]*PS[n+1];
A[n]:= floor(S3/S2);
od:
seq(A[i], i=1..100); # Robert Israel, Mar 29 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved