|
|
A328845
|
|
The first Fibonacci based variant of arithmetic derivative: a(p) = A000045(p) for prime p, a(u*v) = a(u)*v + u*a(v), with a(0) = a(1) = 0.
|
|
31
|
|
|
0, 0, 1, 2, 4, 5, 7, 13, 12, 12, 15, 89, 20, 233, 33, 25, 32, 1597, 33, 4181, 40, 53, 189, 28657, 52, 50, 479, 54, 80, 514229, 65, 1346269, 80, 289, 3211, 100, 84, 24157817, 8381, 725, 100, 165580141, 127, 433494437, 400, 105, 57337, 2971215073, 128, 182, 125, 4825, 984, 53316291173, 135, 500, 188, 12581, 1028487, 956722026041, 160
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
FORMULA
|
a(n) = n * Sum e_j * A000045(p_j)/p_j for n = Product p_j^e_j.
|
|
PROG
|
(PARI) A328845(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]*fibonacci(f[i, 1])/f[i, 1]));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|