%I #4 Jun 07 2015 07:31:37
%S 0,0,0,0,4,0,0,0,1520,0,0,0,3424,0,0,752,8592,0,0,0,3120,0,0,0,8144,0,
%T 368,27,8592,0,0,0,20096,0,0,1520,8976,0,0,3424,2176,0,0,0,16304,1520,
%U 0,0,32624,0,752,1552,8976,0,10260,3424,22288,0,0,0,22288,0,0
%N Eighth arithmetic derivative of n.
%H Alois P. Heinz, <a href="/A258648/b258648.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = A003415^8(n).
%p d:= n-> n*add(i[2]/i[1], i=ifactors(n)[2]):
%p A:= proc(n, k) option remember; `if`(k=0, n, d(A(n, k-1))) end:
%p a:= n-> A(n, 8):
%p seq(a(n), n=0..70);
%Y Column k=8 of A258651.
%Y Cf. A003415.
%K nonn
%O 0,5
%A _Alois P. Heinz_, Jun 06 2015
|