|
%I #15 Aug 18 2017 03:13:33
%S 0,1,2,3,4,5,6,7,8,9,10,20,30,40,50,60,70,80,90,99,100,188,189,198,
%T 200,277,278,279,287,297,300,366,367,368,369,376,386,396,400,455,456,
%U 457,458,459,465,475,485,495,500,545,546,547,548,549,554,564,574
%N Numbers n such that in decimal representation the largest digit is equal to the digital root.
%C A054055(a(n)) = A010888(a(n)).
%H Nathaniel Johnston, <a href="/A107085/b107085.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/DigitalRoot.html">Digital Root</a>
%e m=1177 -> 1+1+7+7 = 16 -> 1+6 = 7 = (largest digit of 1177), therefore 1177 is a term.
%p 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
%t lddrQ[n_]:=FixedPoint[Total[IntegerDigits[#]]&,n]==Max[IntegerDigits[n]]; Select[Range[0,600],lddrQ] (* _Harvey P. Dale_, Mar 11 2012 *)
%Y Cf. A070958.
%K nonn,easy,base
%O 1,3
%A _Alexandre Wajnberg_ and _Reinhard Zumkeller_, May 11 2005
|
