login
Deficient numbers that are not distended.
3

%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