{-# OPTIONS_GHC -O2 #-}
 
main = print $ 
  last $ take 1200 
    [n | n<-[2..], let i=div n 2, and [rem n j /= 0| j <-[i,i-1..2]]] 
 
{- 
n=1000
	Success	time: 0.41 memory: 6280 signal:0
N=7919
 
n=2000
	Success	time: 2.24 memory: 6280 signal:0
N=17389
 
... N^2.1   n^2.4  
 
(http://e...content-available-to-author-only...a.org/wiki/Analysis_of_algorithms#Empirical_orders_of_growth)
-}
 
main2 = print $ 
   [logBase (17389/7919) (2.25/0.42),
    logBase (2000/1000)  (2.25/0.42)]

ey0jIE9QVElPTlNfR0hDIC1PMiAjLX0KCm1haW4gPSBwcmludCAkIAogIGxhc3QgJCB0YWtlIDEyMDAgCiAgICBbbiB8IG48LVsyLi5dLCBsZXQgaT1kaXYgbiAyLCBhbmQgW3JlbSBuIGogLz0gMHwgaiA8LVtpLGktMS4uMl1dXSAKICAgIAp7LSAKbj0xMDAwCglTdWNjZXNzCXRpbWU6IDAuNDEgbWVtb3J5OiA2MjgwIHNpZ25hbDowCk49NzkxOQoKbj0yMDAwCglTdWNjZXNzCXRpbWU6IDIuMjQgbWVtb3J5OiA2MjgwIHNpZ25hbDowCk49MTczODkKCi4uLiBOXjIuMSAgIG5eMi40ICAKCihodHRwOi8vZS4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uYS5vcmcvd2lraS9BbmFseXNpc19vZl9hbGdvcml0aG1zI0VtcGlyaWNhbF9vcmRlcnNfb2ZfZ3Jvd3RoKQotfQoKbWFpbjIgPSBwcmludCAkIAogICBbbG9nQmFzZSAoMTczODkvNzkxOSkgKDIuMjUvMC40MiksCiAgICBsb2dCYXNlICgyMDAwLzEwMDApICAoMi4yNS8wLjQyKV0=