OFFSET
1,4
COMMENTS
These values were mistakenly entered into A203025.
LINKS
Franklin T. Adams-Watters, Table of n, a(n) for n = 1..10000
EXAMPLE
36 = 2^2 * 3^2. 3^2 = 9 > 2^2 = 4, so a(36) = 9.
20 = 2^2 * 5, so 2^2 = 4 is the only proper prime power divisor of 20, thus a(20) = 4.
MATHEMATICA
Table[s = Select[FactorInteger[n], #[[2]] > 1 &]; If[s == {}, 1, Max[#1^#2 & @@@ s]], {n, 100}] (* T. D. Noe, Jan 02 2012 *)
PROG
(PARI) a(n) = my(fm=factor(n), r=1); for(k=1, #fm[, 1], if(fm[k, 2]!=1&&fm[k, 1]^fm[k, 2]>r, r=fm[k, 1]^fm[k, 2])); r
CROSSREFS
KEYWORD
nonn
AUTHOR
Franklin T. Adams-Watters, Jun 06 2016
STATUS
approved