Hofstadter Q sequence by twobit

q={1,1}for n=3,302 do
print(q[n-2])q[n]=q[n-q[n-1]]+q[n-q[n-2]]end

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

download

return to the top page