The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A052018 Numbers n with property that the sum of the digits of n is substring of n. 17
 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 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 LINKS R. Zumkeller, Table of n, a(n) for n = 1..10000 [Reinhard Zumkeller, Aug 15 2010] MAPLE P:=proc(n) local a; a:=convert(convert(n, base, 10), `+`); a:=substring(x.a, 2..length(x.a)); if searchtext(a, x.n)>0 then n; fi; end: seq(P(i), i=0..1063); # Paolo P. Lava, Apr 13 2018 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 * A302768 A202272 A180480 Adjacent sequences:  A052015 A052016 A052017 * A052019 A052020 A052021 KEYWORD nonn,base AUTHOR Patrick De Geest, Nov 15 1999 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 29 15:00 EDT 2020. Contains 338066 sequences. (Running on oeis4.)