|
%I #8 May 25 2014 11:47:53
%S 1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0,1,2,3,4,
%T 5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,
%U 9,0,1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0
%N Median of the digits in n (rounding up).
%F Function selects the middle digit in n or, for even numbers, the digit to the right of the middle.
%e a(1) = 1.
%e a(12) = 2.
%e a(123) = 2.
%e a(1234) = 3.
%p A179636 := proc(n) dgs := convert(n,base,10) ; l := nops(dgs) ; if type(l,'odd' ) then dgs[(l+1)/2] ; else dgs[l/2] ; end if; end proc: seq(A179636(n), n=1..120); # _R. J. Mathar_, Jul 27 2010
%t f[n_] := IntegerDigits[n][[ Floor[ (Log[10, n] + 1)/2] + 1]]; Array[f, 105] (* _Robert G. Wilson v_, Jul 25 2010 *)
%Y Cf. A179635.
%K easy,nonn,base
%O 1,2
%A _Dominick Cancilla_, Jul 21 2010
%E More terms from _R. J. Mathar_ and _Robert G. Wilson v_, Jul 27 2010
|
