A051773 Deficient numbers that are not distended.

45, 63, 99, 105, 110, 117, 130, 135, 154, 165, 170, 175, 182, 189, 195, 225, 231, 238, 255, 266, 273, 285, 286, 297, 315, 322, 345, 351, 357, 374, 385, 399, 405, 418, 429, 441, 442, 455, 459, 475, 483, 494, 495, 506, 513, 525, 561, 567, 575

Offset: 1

Author

Alexander Benjamin Schwartz (QBOB(AT)aol.com), Dec 08 1999

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

In A005100 but not in A051772.

Programs

Mathematica

Select[Range[1000], Total[d = Divisors[#]] < 2 # && Min[Rest[d = Divisors[#]] - Most[Accumulate[d]]] <= 0 &] (* Amiram Eldar, Jun 18 2019 after Ivan Neretin at A051772 *)