login
This site is supported by donations to The OEIS Foundation.

 

Logo

Many excellent designs for a new banner were submitted. We will use the best of them in rotation.

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. 16
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 [From Reinhard Zumkeller, Aug 15 2010]

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

CROSSREFS

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

Cf. A175688. [From Reinhard Zumkeller, Aug 15 2010]

Cf. A055642, A004426.

Cf. A119246, A138166.

Sequence in context: A212499 A032945 A236402 * A202272 A180480 A080459

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 | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified April 16 06:19 EDT 2014. Contains 240545 sequences.