(loop(format t"~&~D ="(set'n(read)))(dotimes'20(format(integerp(set'b(expt n(/(+ .'2)))))" ~D^~D"b(+ .'2))))