OFFSET
1,4
COMMENTS
See A346012 for details.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[p_, e_] := e/(e + 1); a[1] = 0; a[n_] := Denominator[Plus @@ f @@@ (fct = FactorInteger[n]) - Length[fct]/2]; Array[a, 100]
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Amiram Eldar, Jul 01 2021
STATUS
approved