|
%I #5 Jun 12 2015 20:23:27
%S 0,0,1,3,7,10,17,21,33,45,56,61,81,87,102,121,153,160,193,201,233,259,
%T 280,289,341,371,396,450,494,504,557,568,648,685,716,757,841,853,888,
%U 932,1016,1029,1102,1116,1180,1267,1308,1323,1451,1507,1592,1647,1723
%N Partial sums of the pi-based arithmetic derivative sequence A258851.
%H Alois P. Heinz, <a href="/A258864/b258864.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = Sum_{k=0..n} A258851(k).
%p with(numtheory):
%p d:= n-> n*add(i[2]*pi(i[1])/i[1], i=ifactors(n)[2]):
%p a:= proc(n) option remember; d(n)+`if`(n>0, a(n-1), 0) end:
%p seq(a(n), n=0..100);
%Y Cf. A000720, A258851.
%K nonn
%O 0,4
%A _Alois P. Heinz_, Jun 12 2015
|
