login
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
OFFSET
1,2
COMMENTS
Terms are either odd or multiples of 4. - Antti Karttunen, Jul 31 2022
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..20000 (first 1000 terms from Bruno Berselli)
FORMULA
a(n) = A003415(A005843(n)).
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]));
A068719(n) = (n + 2*A003415(n)); \\ Antti Karttunen, Jul 31 2022
CROSSREFS
Second diagonal (without the initial 1) in A084890.
Row 1 of A344027.
Sequence in context: A253086 A260624 A067371 * A191161 A246316 A344372
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Feb 26 2002
STATUS
approved