OFFSET
1,2
LINKS
Ilya Gutkovskiy, Scatter plot of a(n) up to n=100000.
Eric Weisstein's World of Mathematics, Greatest Prime Factor.
FORMULA
EXAMPLE
a(40) = 125 because 40 = 2^3*5^1, max{2,5} = 5, max{3,1} = 3 and 5^3 = 125.
MATHEMATICA
Table[(FactorInteger[n][[-1, 1]])^(Max @@ Last /@ FactorInteger[n]), {n, 75}]
PROG
(PARI) a(n) = if(n == 1, 1, my(f = factor(n), p = f[, 1], e = f[, 2]); vecmax(p)^vecmax(e)); \\ Amiram Eldar, Sep 08 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, May 07 2018
STATUS
approved