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 A162015 #10 Aug 06 2019 20:24:48
%S A162015 1,5,6,10,50,60,100,500,600,910,1000,1009,1018,1027,1036,1045,1054,
%T A162015 1090,1128,1145,1309,1454,1463,1654,1781,1810,2127,2499,2710,3610,
%U A162015 3613,4105,4175,4510,5000,5410,6000,6123,6133,6310,7152,7210,7212,8110,8131,9010
%N A162015 Numbers n with property that the sum of the digits of n is substring of n and of n^2.
%C A162015 1454 is in the list because its digital sum is 1+4+5+4 = 14 and "14" is a substring of 1454 and of 1454^2 = 2114116
%H A162015 Harvey P. Dale, <a href="/A162015/b162015.txt">Table of n, a(n) for n = 1..2500</a>
%t A162015 sdssQ[n_]:=Module[{idn1=IntegerDigits[n],idn2=IntegerDigits[n^2],idnt}, idnt= IntegerDigits[ Total[idn1]];SequenceCount[idn1,idnt]>0 && SequenceCount[idn2,idnt]>0]; Select[Range[10000],sdssQ] (* The program uses the SequenceCount function from Mathematica version 10 *) (* _Harvey P. Dale_, Jul 29 2015 *)
%Y A162015 A052018
%K A162015 nonn,base
%O A162015 1,2
%A A162015 _Claudio Meller_, Jun 24 2009