OFFSET
1,6
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
FORMULA
a(n) = n/A082299(n).
EXAMPLE
n=200: (2+2+2+5+5)/(2*2*2*5*5) = 16/(2*2*2*5*5) = (2*2*2*2)/(2*2*2*5*5) = 2/25, therefore a(200)=25, A082343(200)=2.
MATHEMATICA
sopd[n_]:=Module[{f=Flatten[Table[#[[1]], #[[2]]]&/@FactorInteger[n]]}, Denominator[ Total[f]/n]]; Array[sopd, 90] (* Harvey P. Dale, Jul 24 2018 *)
sopfr[n_] := If[n == 1, 0, Total[Times @@@ FactorInteger[n]]];
a[n_] := Denominator[sopfr[n]/n];
Array[a, 100] (* Jean-François Alcover, Dec 03 2021 *)
PROG
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Reinhard Zumkeller, Apr 09 2003
STATUS
approved