main=2#[1..9999]
n#(a:x)=putStr(shows a" ")>>(n+1)#[l|(i,l)<-zip[n..]x,0<i`mod`max 2a]