A258647 Seventh arithmetic derivative of n.

0, 0, 0, 0, 4, 0, 0, 0, 752, 0, 0, 0, 1520, 0, 0, 368, 3424, 0, 0, 0, 1552, 0, 0, 0, 3120, 0, 176, 27, 3424, 0, 0, 0, 8592, 0, 0, 752, 3312, 0, 0, 1520, 912, 0, 0, 0, 8144, 752, 0, 0, 16304, 0, 368, 608, 3312, 0, 5076, 1520, 8976, 0, 0, 0, 8976, 0, 0, 240

Offset: 0

Author

Alois P. Heinz, Jun 06 2015

Keywords

• nonn

Links

• Alois P. Heinz, Table of n, a(n) for n = 0..10000

Crossrefs

Column k=7 of A258651.

Cf. A003415.

Programs

Maple

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, 7):
seq(a(n), n=0..70);

Formula

a(n) = A003415^7(n).