Self Numbers by teebee(pooq(teebee))

procedure main()
every i:=1to*(a:=list(3e3))do{every(r:=i)+:=!i
/a[i]&write(i)
a[r]:=i}
end

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

download

return to the top page