OFFSET
1,6
LINKS
MATHEMATICA
f[p_, e_] := NextPrime[p]^e; a[1] = 0; a[n_] := (1 + Times @@ f @@@ FactorInteger[n])/2 - n; Array[a, 100] (* Amiram Eldar, Nov 23 2021 *)
PROG
CROSSREFS
KEYWORD
sign,look
AUTHOR
Antti Karttunen, Nov 23 2021
STATUS
approved