OFFSET
1,6
COMMENTS
Least common multiple of n and its arithmetic derivative, divided by n, i.e. a(n) = lcm(n,n')/n = A086130(n)/A000027(n). - Giorgio Balzarotti, Apr 14 2011
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
FORMULA
The fraction a(n)/A083346(n) is totally additive with a(p) = 1/p. - Franklin T. Adams-Watters, May 17 2006
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k)/A083346(k) = Sum_{p prime} 1/(p*(p-1)) = 0.773156... (A136141). - Amiram Eldar, Sep 29 2023
EXAMPLE
MATHEMATICA
Array[Numerator@ Total[FactorInteger[#] /. {p_, e_} /; e > 0 :> e/p] - Boole[# == 1] &, 85] (* Michael De Vlieger, Feb 25 2018 *)
PROG
(PARI) A083345(n) = { my(f=factor(n)); numerator(vecsum(vector(#f~, i, f[i, 2]/f[i, 1]))); }; \\ Antti Karttunen, Feb 25 2018
CROSSREFS
KEYWORD
nonn,easy,frac
AUTHOR
Reinhard Zumkeller, Apr 25 2003
STATUS
approved