f=: 3 : 0
   a =: 1 (i. y)} i. y
   a =: 0 (0 1)} a
   b =: 0
   while. b < #(I. a)
   do. 
   c =: b} (I. a)
   d =: <. ((y-1) % c)
   d =: d - 1
   e =: i. d
   e =: e + 2
   e =: e * c
   a =: 0 e} a
   b =: b + 1
   end.
   a =: I. a
   b =: #a
   b =: b , 1
   b $ a
   )
   f 1000