Hofstadter Q sequence by pooq

q:Array(301);q[1]=1.p;q[2]=1.p;range(3,301){n:it;q[n]=q[n-q[n-1]]+q[n-q[n-2]] .p;}

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

download

return to the top page