>>553
Cと比べてあんまり短くないがそれでいいのかHaskell。
main(i,z){for(;z=i++;z||printf("%d,",i))while(i%z--);}