OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Smith Number.
Wikipedia, Smith number.
MATHEMATICA
d[n_]:=IntegerDigits[n]; tr[n_]:=Transpose[FactorInteger[n]]; t={}; Do[If[!PrimeQ[n]&&(x=Total[d[n]])==Total[d@tr[n][[1]]*tr[n][[2]], 2], AppendTo[t, x]], {n, 4, 1850}]; t (* Jayanta Basu, Jun 04 2013 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
EXTENSIONS
Offset corrected by Reinhard Zumkeller, Dec 19 2011
STATUS
approved