|
%I #9 Jul 19 2020 05:14:33
%S 0,1,2,3,4,5,6,7,1,1,2,3,4,5,6,7,2,2,2,3,4,5,6,7,3,3,3,3,4,5,6,7,4,4,
%T 4,4,4,5,6,7,5,5,5,5,5,5,6,7,6,6,6,6,6,6,6,7,7,7,7,7,7,7,7,7,1,1,2,3,
%U 4,5,6,7,1,1,2,3,4,5,6,7,2,2,2,3,4,5,6,7,3,3,3,3,4,5,6,7,4,4,4,4,4,5,6,7,5
%N Maximal digit in base-8 expansion of n.
%t Max[IntegerDigits[#,8]]&/@Range[0,110] (* _Harvey P. Dale_, Sep 05 2019 *)
%o (PARI) a(n) = if (n, vecmax(digits(n, 8)), 0); \\ _Michel Marcus_, Jul 19 2020
%Y Cf. A007094, A054055.
%K nonn,base
%O 0,3
%A _N. J. A. Sloane_, May 13 2011
|
