|
%I #20 Jul 31 2022 08:15:18
%S 1,4,5,12,7,16,9,32,21,24,13,44,15,32,31,80,19,60,21,68,41,48,25,112,
%T 45,56,81,92,31,92,33,192,61,72,59,156,39,80,71,176,43,124,45,140,123,
%U 96,49,272,77,140,91,164,55,216,87,240,101,120
%N Arithmetic derivative of even numbers: a(n) = n+2*A003415(n).
%C Terms are either odd or multiples of 4. - _Antti Karttunen_, Jul 31 2022
%H Antti Karttunen, <a href="/A068719/b068719.txt">Table of n, a(n) for n = 1..20000</a> (first 1000 terms from Bruno Berselli)
%F a(n) = A003415(A005843(n)).
%o (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
%o (PARI)
%o A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
%o A068719(n) = (n + 2*A003415(n)); \\ _Antti Karttunen_, Jul 31 2022
%Y Cf. A003415, A005843, A068720, A068721, A260624, A327862, A327864.
%Y Second diagonal (without the initial 1) in A084890.
%Y Row 1 of A344027.
%K nonn
%O 1,2
%A _Reinhard Zumkeller_, Feb 26 2002
|
