A005836 by teebee

m:-0/1.
I/N:-(N mod 3<1,!;writeln(I)),J is I+1,M is N*4-N*2//J,J<1e3,J/M.

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

download

return to the top page