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

 

Logo

Invitation: celebrating 50 years of OEIS, 250000 sequences, and Sloane's 75th, there will be a conference at DIMACS, Rutgers, Oct 9-10 2014.

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: A244890 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 September 3 04:03 EDT 2014. Contains 246369 sequences.