EKG Sequence by *yuko*

label 0;var a:array[byte]of byte;i,j,k:byte=1;begin
0:writeln(j);a[j]:=1;i:=j;for j:=2to 141do for k:=2to j do
if(i+1div i)mod k+j mod k+a[j]<1 then goto 0;end.

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

download

return to the top page