(1..$$).map{|i|s=j=1;i%(j+=1)<1&&s+=j until s<j;s>=i&&p(i)}