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, 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
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, May 10 2006
STATUS
approved