A119247 Numbers not containing their digital root in decimal representation.

11, 12, 13, 14, 15, 16, 17, 18, 21, 22, 23, 24, 25, 26, 27, 28, 31, 32, 33, 34, 35, 36, 37, 38, 41, 42, 43, 44, 45, 46, 47, 48, 51, 52, 53, 54, 55, 56, 57, 58, 61, 62, 63, 64, 65, 66, 67, 68, 71, 72, 73, 74, 75, 76, 77, 78, 81, 82, 83, 84, 85, 86, 87, 88, 101

Offset: 1

Author

Reinhard Zumkeller, May 10 2006

Keywords

• nonn
• easy
• base

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

Crossrefs

Cf. A010888.

Programs

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 *)