p
is the power of an integer.isIntpower(p)
p
is the power of an integer and
returns a tupel (n, m)
such that p=n^m
where m
is
as small as possible. E.g., if p
is prime it returns c(p,1)
.isIntpower(1) # 1 1
isIntpower(15) # 15 1
isIntpower(17) # 17 1
isIntpower(64) # 8 2
isIntpower(36) # 6 2
isIntpower(100) # 10 2
for (p in 5^7:7^5) {
pp <- isIntpower(p)
if (pp[2] != 1) cat(p, ":\t", pp, "\n")
}
Run the code above in your browser using DataLab