|
%I #7 May 28 2021 13:21:57
%S 1,2,3,4,5,6,7,8,9,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,
%T 3,3,3,3,3,4,4,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,6,6,6,6,6,6,6,6,6,
%U 6,7,7,7,7,7,7,7,7,7,7,8,8,8,8,8,8,8,8,8,8,9,9,9,9,9,9,9,9,9,9,0,0,0,0,0,0
%N Median of the digits in n (rounding down).
%e Function selects the middle digit in n or, for even numbers, the digit to the left of the middle.
%e a(1) = 1;
%e a(12) = 1;
%e a(123) = 2;
%e a(1234) = 2.
%t f[n_] := IntegerDigits[n] [[Floor[ (Log[10, n] + 2)/2]]]; Array[f, 105] (* _Robert G. Wilson v_, Jul 25 2010 *)
%Y Cf. A179636. - _Robert G. Wilson v_, Jul 25 2010
%K easy,nonn,base
%O 1,2
%A _Dominick Cancilla_, Jul 21 2010
%E More terms from _Robert G. Wilson v_, Jul 25 2010
|
