|
| |
|
|
A119246
|
|
Numbers containing in decimal representation their digital root.
|
|
2
| |
|
|
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; 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 to construct all terms beginning with {d:1<=d<=9}. - Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), May 19 2006
|
|
|
LINKS
| Eric Weisstein's World of Mathematics, World of Mathematics, Digital Root
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
|
|
|
PROG
| (Haskell)
import Data.Char (intToDigit)
a119246 n = a119246_list !! (n-1)
a119246_list = filter (\x -> intToDigit (a010888 x) `elem` show x) [0..]
-- Reinhard Zumkeller, Apr 14 2011
|
|
|
CROSSREFS
| Cf. A010888.
Sequence in context: A023765 A032906 A075905 * A108191 A108193 A089583
Adjacent sequences: A119243 A119244 A119245 * A119247 A119248 A119249
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), May 10 2006
|
| |
|
|
