OFFSET
1,4
COMMENTS
A perfect divisor of n is a divisor d such that d^k = n for some k >= 1.
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
MATHEMATICA
Table[Apply[Times, Select[Divisors@ n, Or[# == 1, #^IntegerExponent[n, #] == n] &]]/n, {n, 105}] (* Michael De Vlieger, Nov 21 2017 *)
PROG
(PARI)
A175068(n) = { my(m=1); fordiv(n, d, if((1==d)||(d^valuation(n, d))==n, m*=d)); (m); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jan 23 2010
STATUS
approved