%I #5 Jun 18 2019 18:23:43
%S 45,63,99,105,110,117,130,135,154,165,170,175,182,189,195,225,231,238,
%T 255,266,273,285,286,297,315,322,345,351,357,374,385,399,405,418,429,
%U 441,442,455,459,475,483,494,495,506,513,525,561,567,575
%N Deficient numbers that are not distended.
%H Amiram Eldar, <a href="/A051773/b051773.txt">Table of n, a(n) for n = 1..10000</a>
%t 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 *)
%Y In A005100 but not in A051772.
%K nonn
%O 1,1
%A Alexander Benjamin Schwartz (QBOB(AT)aol.com), Dec 08 1999