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