Hofstadter Q sequence by pooq

q=[];for n=1:300;if(n>2)a=q(n-q(n-1))+q(n-q(n-2));else a=1;end;disp(int16(q(n)=a))end

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

download

return to the top page