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 A050218 #25 Feb 16 2025 08:32:40
%S A050218 4,4,9,13,13,13,4,13,4,13,13,13,13,13,18,13,13,15,13,15,13,13,13,13,
%T A050218 18,21,15,13,15,15,18,15,15,18,15,13,17,18,15,22,15,15,15,22,13,15,13,
%U A050218 22,22,15,4,13,13,13,13,15,17,18,13,15,15,13,13,22,17,18,21,22,13,15
%N A050218 Sums of digits of Smith numbers A006753.
%H A050218 Reinhard Zumkeller, <a href="/A050218/b050218.txt">Table of n, a(n) for n = 1..10000</a>
%H A050218 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SmithNumber.html">Smith Number</a>.
%H A050218 Wikipedia, <a href="http://en.wikipedia.org/wiki/Smith_number">Smith number</a>.
%F A050218 a(n) = A007953(A006753(n)).
%t A050218 d[n_]:=IntegerDigits[n]; tr[n_]:=Transpose[FactorInteger[n]]; t={}; Do[If[!PrimeQ[n]&&(x=Total[d[n]])==Total[d@tr[n][[1]]*tr[n][[2]],2],AppendTo[t,x]],{n,4,1850}]; t (* _Jayanta Basu_, Jun 04 2013 *)
%Y A050218 Cf. A006753, A050219, A050220.
%Y A050218 Cf. A202388, A050223.
%K A050218 nonn,base,less
%O A050218 1,1
%A A050218 _Eric W. Weisstein_
%E A050218 Offset corrected by _Reinhard Zumkeller_, Dec 19 2011