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