Hofstadter Q sequence by medialuna

v=:_,1,1,298$0
g=: 3 :'v=:(+/v{~y-((y-1),(y-2)){v)(<y)}v'
r=:}.{:g"0(3+i.298)
echo each <"0 r

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

download

return to the top page