for$n(++$p{0}..100){$j=$p{$n}-=$_&&(-1)**$_*$p{$n-$_*(3*$_-1)/2}for-8..9;print"p($n)=$j "}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page