20/10/30 15:46:38.48 yGnWFiRo.net
とりあえずn≦200までで２つしかない
main = do
let x = P [0,1]
--print $ (x+1)^7
--print $ (x-1)^8
let cond (P cs) = (not . all (/=0)) cs
print $ map fst $ filter (cond.snd) $ take 200 $ [ (n,((x+3)*(x-2))^n) | n <-[1..]]
----
[13,38]