login
A107085
Numbers n such that in decimal representation the largest digit is equal to the digital root.
3
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
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
KEYWORD
nonn,easy,base
AUTHOR
STATUS
approved