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

 

Logo


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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 26 13:05 EDT 2019. Contains 323586 sequences. (Running on oeis4.)