This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A202387 #16 Feb 16 2025 08:33:16 %S A202387 22,58,85,94,166,202,265,274,319,346,355,382,391,438,454,483,517,526, %T A202387 535,562,627,634,645,654,663,690,706,762,778,861,895,913,915,922,958, %U A202387 985,1086,1111,1165,1219,1255,1282,1507,1581,1626,1633,1642,1678,1795,1822 %N A202387 Squarefree Smith numbers, cf. A006753. %C A202387 Intersection of A006753 and A005117; %C A202387 also squarefree hoax numbers: intersection of A019506 and A005117; %C A202387 squarefree composite numbers m such that sum of digits of m = sum of digits of all prime factors of m. %H A202387 Reinhard Zumkeller, <a href="/A202387/b202387.txt">Table of n, a(n) for n = 1..10000</a> %H A202387 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SmithNumber.html">Smith Number</a> %H A202387 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/HoaxNumber.html">Hoax Number</a> %H A202387 Wikipedia, <a href="http://en.wikipedia.org/wiki/Smith_number">Smith number</a> %o A202387 (Haskell) %o A202387 a202387 n = a202387_list !! (n-1) %o A202387 a202387_list = [x | x <- a120944_list, %o A202387 a007953 x == sum (map a007953 (a027746_row x))] %Y A202387 Cf. A007953, A027746, A120944. %K A202387 nonn,base %O A202387 1,1 %A A202387 _Reinhard Zumkeller_, Dec 19 2011