This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A119246 Numbers containing in decimal representation their digital root. 4
 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 19, 20, 29, 30, 39, 40, 49, 50, 59, 60, 69, 70, 79, 80, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 109, 118, 127, 128, 136, 138, 145, 148, 154, 158, 163, 168, 172, 178, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 198, 199, 200 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 COMMENTS Complement of A119247. For terms u: all digital permutations of u form terms; u*10 and all insertions of 0 are terms; if v is another term, then the concatenations uv, vu are also terms, as well as all insertions of v in u; these properties allow the construction of all terms beginning with {d:1<=d<=9}. - Reinhard Zumkeller, May 19 2006 LINKS Reinhard Zumkeller, Table of n, a(n) for n = 1..10000 Eric Weisstein's World of Mathematics, World of Mathematics, Digital Root MATHEMATICA d[n_] := IntegerDigits[n]; Select[Range[0, 200], MemberQ[d[#1], NestWhile[Total[d[#]] &, #1, # > 9 &]] &] (* Jayanta Basu, Jul 13 2013 *) PROG (Haskell) a119246 n = a119246_list !! (n-1) a119246_list =     filter (\x -> a010888 x `elem` a031298_row (fromInteger x)) [0..] -- Reinhard Zumkeller, Dec 16 2013, Apr 14 2011 CROSSREFS Cf. A010888. Cf. A052018, A031298, A138166. Sequence in context: A075905 A321767 A207506 * A280657 A108191 A108193 Adjacent sequences:  A119243 A119244 A119245 * A119247 A119248 A119249 KEYWORD nonn,base AUTHOR Reinhard Zumkeller, May 10 2006 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 May 26 13:05 EDT 2019. Contains 323586 sequences. (Running on oeis4.)