Partition function by teebee

p.=0
p.0=1
do n=1 to 100
do i=1 to 25
k=n-i*(i-1)/6
p.n=p.n-p.k*-1**(i%3)
end
say"p("n")="p.n
end

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

download

return to the top page