var a:array[0..9999]of word;i,j:word;begin repeat for j:=1to 4999do a[j]:=max(j*2,a[j+j div max(a[i],1)]);write(a[i]+1,^`);i:=i+1until i>1117end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page