login
A129283
(Arithmetic derivative of n) + n.
30
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, 35, 41, 54, 60, 30, 61, 32, 112, 47, 53, 47, 96, 38, 59, 55, 108, 42, 83, 44, 92, 84, 71, 48, 160, 63, 95, 71, 108, 54, 135, 71, 148, 79, 89, 60, 152, 62, 95, 114, 256, 83, 127, 68
OFFSET
0,3
COMMENTS
a(n) = A003415(n*A051674(k)) / A051674(k);
a(A129284(n))>1, a(A129285(n))>1, a(A129286(n))>1.
LINKS
FORMULA
a(n) = A003415(n) + n.
MAPLE
A129283 := proc(n)
n+A003415(n) ;
end proc:
seq(A129283(n), n=0..40) ; # R. J. Mathar, Feb 04 2022
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
Sequence in context: A357067 A074212 A125715 * A332844 A347228 A330575
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Apr 07 2007
STATUS
approved