OFFSET
0,3
COMMENTS
LINKS
R. Zumkeller, Table of n, a(n) for n = 0..10000
FORMULA
a(n) = A003415(n) + n.
MAPLE
MATHEMATICA
ad[n_] := Switch[n, 0|1, 0, _?PrimeQ, 1, _, Sum[Module[{p, e}, {p, e} = pe; n*e/p], {pe, FactorInteger[n]}]];
a[n_] := ad[n] + n;
Table[a[n], {n, 0, 100}] (* Jean-François Alcover, May 23 2023 *)
PROG
(Haskell)
a129283 n = a003415 n + n -- Reinhard Zumkeller, Nov 01 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Apr 07 2007
STATUS
approved