OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
If n = p^a*q^b*r^c... p, q, r are primes and max(a, b, c, ...) = K then a(n) = p^K*q^K*r^K...
EXAMPLE
a(12) = 3*12 = 36 = 6^2.
a(24) = 9*24 = 216 = 6^3.
MATHEMATICA
a[n_] := (Times @@ First@#)^(Max[Max @@ Last@#, 2]) &@ Transpose @ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Feb 23 2021 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Amarnath Murthy, Sep 03 2003
EXTENSIONS
More terms from David Wasserman, May 04 2005
STATUS
approved