Hofstadter Q sequence by pooq

for(n in q<-1:300)write(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