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