for i=1to 2e3j=i 1k=k+mod(j,10)^2:j=int(j/10):if j<7j=k+j^2:k=0 if j>6goto 1 if j=1?i next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page