{for(j=1;i++<$1;)s=s i(2*i-j*j-j?FS:RS$++j)}$0=s
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page