login
Median of the digits in n (rounding down).
1

%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