|
%I #7 Aug 31 2015 21:05:48
%S 0,0,0,0,4,0,0,0,80,0,0,0,176,0,1,32,368,0,1,0,112,0,0,0,240,0,16,27,
%T 368,0,0,0,752,5,0,80,272,0,1,176,220,0,0,0,608,80,1,0,1552,5,32,48,
%U 272,0,540,176,560,0,0,0,560,0,6,44,7168,7,0,0,284,12,0
%N Fourth arithmetic derivative of n.
%H Alois P. Heinz, <a href="/A258644/b258644.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = A003415^4(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, 4):
%p seq(a(n), n=0..70);
%Y Column k=4 of A258651.
%Y Cf. A003415.
%K nonn,look
%O 0,5
%A _Alois P. Heinz_, Jun 06 2015
|
