%I #15 Feb 19 2018 22:02:31
%S 22,58,85,94,166,202,265,274,319,346,355,382,391,438,454,483,517,526,
%T 535,562,627,634,645,654,663,690,706,762,778,861,895,913,915,922,958,
%U 985,1086,1111,1165,1219,1255,1282,1507,1581,1626,1633,1642,1678,1795,1822
%N Squarefree Smith numbers, cf. A006753.
%C Intersection of A006753 and A005117;
%C also squarefree hoax numbers: intersection of A019506 and A005117;
%C squarefree composite numbers m such that sum of digits of m = sum of digits of all prime factors of m.
%H Reinhard Zumkeller, <a href="/A202387/b202387.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 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/HoaxNumber.html">Hoax Number</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Smith_number">Smith number</a>
%o (Haskell)
%o a202387 n = a202387_list !! (n-1)
%o a202387_list = [x | x <- a120944_list,
%o a007953 x == sum (map a007953 (a027746_row x))]
%Y Cf. A007953, A027746, A120944.
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Dec 19 2011
|