OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)
EXAMPLE
a(4) = 58 because 58 is a Smith number as well as a deficient number.
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 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, Oct 10 2004
STATUS
approved