|
|
A068719
|
|
Arithmetic derivative of even numbers: a(n) = n+2*A003415(n).
|
|
10
|
|
|
1, 4, 5, 12, 7, 16, 9, 32, 21, 24, 13, 44, 15, 32, 31, 80, 19, 60, 21, 68, 41, 48, 25, 112, 45, 56, 81, 92, 31, 92, 33, 192, 61, 72, 59, 156, 39, 80, 71, 176, 43, 124, 45, 140, 123, 96, 49, 272, 77, 140, 91, 164, 55, 216, 87, 240, 101, 120
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(Magma) Ad:=func<h | h*(&+[Factorisation(h)[i][2]/Factorisation(h)[i][1]: i in [1..#Factorisation(h)]])>; [Ad(2*n): n in [1..60]]; // Bruno Berselli, Oct 22 2013
(PARI)
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
|
|
CROSSREFS
|
Second diagonal (without the initial 1) in A084890.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|