A162015 Numbers n with property that the sum of the digits of n is substring of n and of n^2.

1, 5, 6, 10, 50, 60, 100, 500, 600, 910, 1000, 1009, 1018, 1027, 1036, 1045, 1054, 1090, 1128, 1145, 1309, 1454, 1463, 1654, 1781, 1810, 2127, 2499, 2710, 3610, 3613, 4105, 4175, 4510, 5000, 5410, 6000, 6123, 6133, 6310, 7152, 7210, 7212, 8110, 8131, 9010

Offset

1,2

Comments

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

Links

Harvey P. Dale, Table of n, a(n) for n = 1..2500

Mathematica

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 *)

Crossrefs

A052018

Sequence in context: A063630 A342127 A119102 * A162017 A069170 A305293

Adjacent sequences: A162012 A162013 A162014 * A162016 A162017 A162018

Keyword

nonn,base

Author

Claudio Meller, Jun 24 2009

Status

approved