A052018 Numbers k with the property that the sum of the digits of k is a substring of k.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 109, 119, 129, 139, 149, 159, 169, 179, 189, 199, 200, 300, 400, 500, 600, 700, 800, 900, 910, 911, 912, 913, 914, 915, 916, 917, 918, 919, 1000, 1009, 1018, 1027, 1036, 1045, 1054, 1063

Offset

1,3

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Mathematica

sdssQ[n_]:=Module[{idn=IntegerDigits[n], s, len}, s=Total[idn]; len= IntegerLength[ s]; MemberQ[Partition[idn, len, 1], IntegerDigits[s]]]; Join[{0}, Select[Range[1100], sdssQ]] (* Harvey P. Dale, Jan 02 2013 *)

Prog

(Haskell)
import Data.List (isInfixOf)
a052018 n = a052018_list !! (n-1)
a052018_list = filter f [0..] where
   f x = show (a007953 x) `isInfixOf` show x
-- Reinhard Zumkeller, Jun 18 2013
(Python)
loop = (str(n) for n in range(399))
print([int(n) for n in loop if str(sum(int(k) for k in n)) in n]) # Jonathan Frech, Jun 05 2017

Crossrefs

Cf. A052019, A052020, A052021, A052022, A007953, A005349, A028834.

Cf. A175688. - Reinhard Zumkeller, Aug 15 2010

Cf. A055642, A004426.

Cf. A119246, A138166.

Sequence in context: A244890 A032945 A236402 * A352461 A302768 A202272

Adjacent sequences: A052015 A052016 A052017 * A052019 A052020 A052021

Keyword

nonn,base

Author

Patrick De Geest, Nov 15 1999

Status

approved