%I #13 Dec 10 2016 14:35:28

%S 4,4,9,4,4,4,4,4,4,4,4,4,4,4,9,4,4,6,4,6,4,4,4,4,9,3,6,4,6,6,9,6,6,9,

%T 6,4,8,9,6,4,6,6,6,4,4,6,4,4,4,6,4,4,4,4,4,6,8,9,4,6,6,4,4,4,8,9,3,4,

%U 4,6,4,9,9,4,4,9,4,9,8,9,4,4,6,9,4,4

%N Digital root of Smith numbers A006753.

%C a(n) = A010888(A006753(n)); range = {4,6,8,9}.

%H Reinhard Zumkeller, <a href="/A202388/b202388.txt">Table of n, a(n) for n = 1..10000</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/SmithNumber.html">Smith Number</a>

%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Smith_number">Smith number</a>

%t d[n_]:=IntegerDigits[n]; dr[n_]:= NestWhile[Total[d[#]]&,n,#>9&]; tr[n_]:=Transpose[FactorInteger[n]]; t1=Select[Range[4,2.2*10^3],!PrimeQ[#]&&Total[d[#]]==Total[d@tr[#][[1]]*tr[#][[2]],2]&]; Table[dr[n],{n,t1}] (* t1 gives Smith numbers - _Jayanta Basu_, Jun 04 2013 *)

%Y Cf. A050218, A202393.

%K nonn,base

%O 1,1

%A _Reinhard Zumkeller_, Dec 19 2011