Print n weird numbers
Haskell - 129

I'm sure there's lots to golf here, but since the competition seems low for now I'll throw this in.

Don't try running this though, I managed to wait only the two first elements, third will start taking minutes.

(%)=filter
w n=take n$e%[1..]
e x=let d=((==0).mod x)%[1..x-1]in sum d&gt;x&amp;&amp;all((/=x).sum)(i d)
i[]=[[]]
i(y:z)=map(y:)(i z)++(i z)