Hofstadter Q sequence by pooq

q={}for n=1,300 do q[n]=n>2 and q[n-q[n-1]]+q[n-q[n-2]]or 1 print(q[n])end

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

download

return to the top page