%I #11 May 23 2023 08:54:51
%S 0,1,3,4,8,6,11,8,20,15,17,12,28,14,23,23,48,18,39,20,44,31,35,24,68,
%T 35,41,54,60,30,61,32,112,47,53,47,96,38,59,55,108,42,83,44,92,84,71,
%U 48,160,63,95,71,108,54,135,71,148,79,89,60,152,62,95,114,256,83,127,68
%N (Arithmetic derivative of n) + n.
%C a(n) = A003415(n*A051674(k)) / A051674(k);
%C a(A129284(n))>1, a(A129285(n))>1, a(A129286(n))>1.
%H R. Zumkeller, <a href="/A129283/b129283.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = A003415(n) + n.
%p A129283 := proc(n)
%p n+A003415(n) ;
%p end proc:
%p seq(A129283(n),n=0..40) ; # _R. J. Mathar_, Feb 04 2022
%t ad[n_] := Switch[n, 0|1, 0, _?PrimeQ, 1, _, Sum[Module[{p, e}, {p, e} = pe; n*e/p], {pe, FactorInteger[n]}]];
%t a[n_] := ad[n] + n;
%t Table[a[n], {n, 0, 100}] (* _Jean-François Alcover_, May 23 2023 *)
%o (Haskell)
%o a129283 n = a003415 n + n -- _Reinhard Zumkeller_, Nov 01 2013
%K nonn
%O 0,3
%A _Reinhard Zumkeller_, Apr 07 2007