Если ленишься писать программы, хорошо иметь под рукой инструмент, позволяющий не
писать программы, а
формулировать задачи. Такой, как Wolfram Mathematica, например.
Код:
Select[Table[3 k^2 + 6 k + 5, {k, 1, 200}], (DivisorSigma[1, #] - # > #) &]
Код:
Out[] = {770, 2030, 5810, 8750, 22190, 27650, 32450, 38990, 46130, 73010, 82670, 101570, 112910}
(В OEIS, кстати, нет. В топик призывается уважаемый
maxal; почему бы не включить;-)