Non trivial powers Revisted by sjoerd_visscher

s=show
r=read.s
m@main=do
n<-readLn
putStrLn$s n++" = "++unwords[s x++'^':s p|p<-[2..21],x<-[round$r n**(1/r p)],x^p==n]
m

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page