|
%I #10 Aug 06 2019 20:24:48
%S 1,5,6,10,50,60,100,500,600,910,1000,1009,1018,1027,1036,1045,1054,
%T 1090,1128,1145,1309,1454,1463,1654,1781,1810,2127,2499,2710,3610,
%U 3613,4105,4175,4510,5000,5410,6000,6123,6133,6310,7152,7210,7212,8110,8131,9010
%N Numbers n with property that the sum of the digits of n is substring of n and of n^2.
%C 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 Harvey P. Dale, <a href="/A162015/b162015.txt">Table of n, a(n) for n = 1..2500</a>
%t 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 A052018
%K nonn,base
%O 1,2
%A _Claudio Meller_, Jun 24 2009
|
