main=putStr.unwords.map show.take 1118$1:(*2)#1 f#n=f n+1:(\j->f$j+j`div`f n)#(n+1)