

A050218


Sums of digits of Smith numbers A006753.


4



4, 4, 9, 13, 13, 13, 4, 13, 4, 13, 13, 13, 13, 13, 18, 13, 13, 15, 13, 15, 13, 13, 13, 13, 18, 21, 15, 13, 15, 15, 18, 15, 15, 18, 15, 13, 17, 18, 15, 22, 15, 15, 15, 22, 13, 15, 13, 22, 22, 15, 4, 13, 13, 13, 13, 15, 17, 18, 13, 15, 15, 13, 13, 22, 17, 18, 21, 22, 13, 15
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

a(n) = A007953(A006753(n)).


LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Smith Number
Eric Weisstein's World of Mathematics, SuperPoulet 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

Cf. A006753, A050219, A050220.
Cf. A202388, A050223.
Sequence in context: A222045 A088190 A092322 * A165996 A266008 A284628
Adjacent sequences: A050215 A050216 A050217 * A050219 A050220 A050221


KEYWORD

nonn,base,less


AUTHOR

Eric W. Weisstein


EXTENSIONS

Offset corrected by Reinhard Zumkeller, Dec 19 2011


STATUS

approved



