OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
a(p) = p and a(p^r) = p^(T(r)) where p is a prime and T(r) = the r-th triangular number = r(r+1)/2.
MATHEMATICA
a[n_] := Module[{d = Rest[Divisors[n]]}, Times @@ DeleteDuplicatesBy[{#, Sort[FactorInteger[#][[;; , 2]]]} & /@ d, Last][[;; , 1]]]; Array[a, 60] (* Amiram Eldar, Jul 25 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jul 21 2003
EXTENSIONS
More terms from David Wasserman, Mar 07 2005
STATUS
approved