%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