OFFSET
1,1
COMMENTS
Complement of A119246.
The ISO human tooth numbering consists of the first 32 terms of this sequence. - Jean-François Alcover, Sep 12 2015
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Digital Root
Wikipedia, Dental notation, section ISO System by the World Health Organization
MAPLE
A119247 := proc(n) option remember: local k: if(n=1)then return 11:fi: for k from procname(n-1)+1 do if(not ((k-1) mod 9) + 1 in convert(convert(k, base, 10), set))then return k: fi: od: end: seq(A119247(n), n=1..65); # Nathaniel Johnston, May 05 2011
MATHEMATICA
d[n_] := IntegerDigits[n]; Select[Range[101], FreeQ[d[#1], NestWhile[Total[d[#]] &, #1, # > 9 &]] &] (* Jayanta Basu, Jul 13 2013 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Reinhard Zumkeller, May 10 2006
STATUS
approved