Et la somme des fractions de la suite?

Nous faisons calculer la somme des fractions des suites

> NbFarey3:=proc(n) local i,j,k,s,r,l;r:=[];for i from 2 to n do s:=Farey(i);k:=nops(s);l:=0;for j from 1 to k do l:=l+op(j,s); od;r:=[op(r),l]; od;RETURN(r)end;

> NbFarey3(10);