|
%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
|
