OFFSET
1,2
COMMENTS
LINKS
Paul Tek, Table of n, a(n) for n = 1..10000
EXAMPLE
a(2250) = a(2*3^2*5^3) = 2^2*3^3*5 = 540.
MATHEMATICA
Table[Times @@ ((ar = Transpose[FactorInteger[n]])[[1]]^RotateLeft[ar[[2]]]), {n, 66}] (* Ivan Neretin, Jul 09 2015 *)
PROG
(PARI) { a(n)=my(f=factor(n), l=#f[, 1]);
return(prod(i=1, l, f[i, 1]^f[if(i==l, 1, i+1), 2])) }
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul Tek, May 20 2013
STATUS
approved