f x=x:x+2:x+x+2:f(x+3)
main=mapM print$take 401$f 1