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