A107085 Numbers n such that in decimal representation the largest digit is equal to the digital root.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 30, 40, 50, 60, 70, 80, 90, 99, 100, 188, 189, 198, 200, 277, 278, 279, 287, 297, 300, 366, 367, 368, 369, 376, 386, 396, 400, 455, 456, 457, 458, 459, 465, 475, 485, 495, 500, 545, 546, 547, 548, 549, 554, 564, 574

Offset

1,3

Comments

A054055(a(n)) = A010888(a(n)).

Links

Nathaniel Johnston, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Digital Root

Example

m=1177 -> 1+1+7+7 = 16 -> 1+6 = 7 = (largest digit of 1177), therefore 1177 is a term.

Maple

A107085 := proc(n) option remember: local k: if(n=1)then return 0:fi: for k from procname(n-1)+1 do if(max(op(convert(k, base, 10)))-1 = (k-1) mod 9)then return k: fi: od: end: seq(A107085(n), n=1..100); # Nathaniel Johnston, May 05 2011

Mathematica

lddrQ[n_]:=FixedPoint[Total[IntegerDigits[#]]&, n]==Max[IntegerDigits[n]]; Select[Range[0, 600], lddrQ] (* Harvey P. Dale, Mar 11 2012 *)

Crossrefs

Cf. A070958.

Sequence in context: A069024 A175396 A338829 * A212499 A244890 A032945

Adjacent sequences: A107082 A107083 A107084 * A107086 A107087 A107088

Keyword

nonn,easy,base

Author

Alexandre Wajnberg and Reinhard Zumkeller, May 11 2005

Status

approved