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