A098836 Deficient Smith numbers.

4, 22, 27, 58, 85, 94, 121, 166, 202, 265, 274, 319, 346, 355, 382, 391, 454, 483, 517, 526, 535, 562, 627, 634, 645, 663, 706, 729, 778, 825, 861, 895, 913, 915, 922, 958, 985, 1111, 1165, 1219, 1255, 1282, 1449, 1507, 1581, 1633, 1642, 1678, 1755, 1795

Offset: 1

Author

Shyam Sunder Gupta, Oct 10 2004

Keywords

• base
• nonn

Examples

			a(4) = 58 because 58 is a Smith number as well as a deficient number.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)
• Shyam Sunder Gupta, Smith Numbers, Exploring the Beauty of Fascinating Numbers, Springer (2025) Ch. 4, 127-157.

Crossrefs

Intersection of A005100 and A006753.

Programs

Mathematica

sndnQ[n_]:=!PrimeQ[n]&&DivisorSigma[1,n]<2n&&Total[Flatten[ IntegerDigits/@ (Flatten[ Table[#[[1]],{#[[2]]}]&/@ FactorInteger[ n]])]]==Total[ IntegerDigits[ n]]; Select[Range[2,2000],sndnQ] (* Harvey P. Dale, Sep 10 2013 *)