Hofstadter Q sequence by pooq

(= q(range 0 300))(for n 1 300(prn:=(q n)(if(> n 2)(+(q:- n(q:- n 1))(q:- n(q:- n 2)))1)))

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

download

return to the top page