dim q(302):for n=2to 301r=q(n-r)+q(n-q(n-2))+(n<3):?r:q(n)=r:next