l=[0..30]
main=mapM putStrLn[take(8+sum[1|x>99])$show$sqrt x+5e-7|x<-[1..901],or[x==y^2+z^2|y<-l,z<-l]]