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,1

Links

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

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 *)

Crossrefs

In A005100 but not in A051772.

Sequence in context: A360769 A046364 A321498 * A307222 A336553 A366460

Adjacent sequences: A051770 A051771 A051772 * A051774 A051775 A051776

Keyword

nonn

Author

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

Status

approved