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