%I #29 Feb 22 2021 09:12:02
%S 1,2,3,4,5,6,7,8,9,5,1,6,3,7,5,8,7,9,9,5,7,2,3,8,5,6,9,8,9,6,3,8,3,7,
%T 7,9,7,9,9,8,4,7,4,4,9,6,7,8,9,5,7,6,5,9,5,8,9,9,9,6,6,6,9,8,6,6,7,8,
%U 9,7,7,9,7,7,7,9,7,9,9,8,9,8,8,8,8,8,9
%N Largest digit of all divisors of n.
%C Also largest digit of concatenation of all divisors of n (A037278, A176558). - _Jaroslav Krizek_
%C a(n) = 9 for almost all n. - _Charles R Greathouse IV_, Mar 20 2012
%C With an offset of 1 rather than 0, A016186 tells us how many integers among the first 10^n have 9s among their digits, and those numbers are therefore guaranteed to index a 9 in this sequence. More interesting of course are those numbers that don't have a 9 in their own digits but do have a 9 among the digits of their nontrivial divisors. - _Alonso del Arte_, Mar 23 2012
%H Michael S. Branicky, <a href="/A209928/b209928.txt">Table of n, a(n) for n = 1..10000</a>
%e a(12) = 6 because digit 6 is largest digit of all divisors of 12: (1, 2, 3, 4, 6, 12).
%t Flatten[Table[Take[Sort[Flatten[IntegerDigits[Divisors[n]]]], -1], {n, 100}]] (* _Alonso del Arte_, Mar 23 2012 *)
%o (PARI) a(n)=my(t);fordiv(n, d, t=max(t, vecmax(eval(Vec(Str(d))))); if(t>8, return(t)));t \\_Charles R Greathouse IV_, Mar 20 2012
%o (Python)
%o from sympy import divisors
%o def a(n): return int(max("".join(map(str, divisors(n)))))
%o print([a(n) for n in range(1, 88)]) # _Michael S. Branicky_, Feb 22 2021
%Y Cf. A054055 (largest digit of n).
%K nonn,base
%O 1,2
%A _Jaroslav Krizek_, Mar 20 2012
|