for$n($\++..100){$p{$n}=$\=$p{$n-((3*$_-1)*$_/2||1)}-$\.$/for-8..9;$n&&print"p($n)="}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page