OFFSET
1,2
MAPLE
A092975 := proc(n) local d, a ; a :=0 ; for d in numtheory[divisors](n) do a := max(a, (n/d)^d) ; od: RETURN(a) ; end: A109674 := proc(n) local d, a092975, p ; if n = 1 then RETURN(1) ; fi ; a092975 := A092975(n) ; for d in numtheory[divisors](n) do p := n/d ; if isprime(p) and p^(n/p) = a092975 then RETURN(p) ; fi ; od: end: seq( A109674(n), n=1..120) ; # R. J. Mathar, Feb 12 2008
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Vladeta Jovovic, Aug 06 2005
EXTENSIONS
More terms from R. J. Mathar, Feb 12 2008
STATUS
approved