Lucky numbers by *yuko*

integer::a(9842)=(/(i,i=1,3**9,2)/);do i=2,1119;print'(i0" "$)',a(i-1);a(a(i)::a(i))=0;a=pack(a,a>0);enddo;end

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

download

return to the top page