compute = s [ 2 .. ]
	where
		s ( n : ns ) = n : s [ a | a <- ns, a `mod` n /= 0 ]