Non trivial powers Revisted by kaki

(use srfi-1)(while(read)=> x(apply print x" ="(map(^i((^d(if(=(expt d i)x)#`" ,|d|^,i"""))(x->integer(expt x(/ i)))))(iota 20 2))))

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

download

return to the top page