OFFSET
1,6
LINKS
EXAMPLE
a(60) = a(2^2*3*5) = (60/2^2) * (60/3) * (60/5) = 15 * 20 * 12 = 3600.
MATHEMATICA
a[n_] := Times @@ (n/#[[1]]^#[[2]] & /@ FactorInteger[n]); Table[a[n], {n, 75}]
Table[n^(PrimeNu[n] - 1), {n, 75}]
PROG
(PARI) A304404(n) = (n^(omega(n)-1)); \\ Antti Karttunen, Aug 06 2018
(Python)
from sympy.ntheory.factor_ import primenu
def A304404(n): return int(n**(primenu(n)-1)) # Chai Wah Wu, Jul 12 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, May 12 2018
STATUS
approved