Self Numbers by pooq

procedure main()
a:=list(4e3,0)
every i:=1to 3000do{every(r:=0)+:=!i
a[i]=0&write(i)
a[r+i]:=1}
end

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

download

return to the top page