OFFSET
1,3
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
KEYWORD
nonn,easy,base
AUTHOR
Alexandre Wajnberg and Reinhard Zumkeller, May 11 2005
STATUS
approved