OFFSET
2,1
FORMULA
MATHEMATICA
a[n_] := Floor[Mean[FactorInteger[n][[;; , 1]]]]; Array[a, 100, 2] (* Amiram Eldar, Jun 27 2023 *)
PROG
(Python)
from sympy import factorint
def a(n):
P = factorint(n).keys()
return int(sum(P)/len(P))
print([a(n) for n in range(2, 85)])
(PARI) a(n) = my(p = factor(n)[, 1]); vecsum(p)\#p; \\ Amiram Eldar, Jun 29 2023
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Darío Clavijo, Jun 26 2023
STATUS
approved