main = print $ or $ concatMap (\x->[let n = x-a-b-c in a^n+b^n == c^n | a<-[1..x-3],b<-[a..x-a-3],c<-[b+1..x-a-b-3]]) [1..]

Timeout