Partition function by brx

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