STATUS
editing
approved
editing
approved
Alois P. Heinz, <a href="/A258646/b258646.txt">Table of n, a(n) for n = 0..10000</a>
d:= n-> n*add(i[2]/i[1], i=ifactors(n)[2]):
A:= proc(n, k) option remember; `if`(k=0, n, d(A(n, k-1))) end:
a:= n-> A(n, 6):
seq(a(n), n=0..70);
allocated for Alois P. Heinz
Sixth arithmetic derivative of n.
0, 0, 0, 0, 4, 0, 0, 0, 368, 0, 0, 0, 752, 0, 0, 176, 1520, 0, 0, 0, 608, 0, 0, 0, 1552, 0, 80, 27, 1520, 0, 0, 0, 3424, 0, 0, 368, 1312, 0, 0, 752, 288, 0, 0, 0, 3120, 368, 0, 0, 8144, 0, 176, 240, 1312, 0, 2484, 752, 3312, 0, 0, 0, 3312, 0, 1, 112, 245760, 0
0,5
a(n) = A003415^6(n).
allocated
nonn
Alois P. Heinz, Jun 06 2015
approved
editing
allocated for Alois P. Heinz
allocated
approved