OFFSET
1,2
LINKS
FORMULA
MATHEMATICA
f1[p_, e_] := e/p; f2[p_, e_] := NextPrime[p]^e; a[n_] := Times @@ f2 @@@ (f = FactorInteger[n]) - n * Plus @@ f1 @@@ f; Array[a, 100] (* Amiram Eldar, Nov 06 2021 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 06 2021
STATUS
approved