A179635 Median of the digits in n (rounding down).

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, 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, 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

Offset

1,2

Links

Table of n, a(n) for n=1..105.

Example

Function selects the middle digit in n or, for even numbers, the digit to the left of the middle.
a(1) = 1;
a(12) = 1;
a(123) = 2;
a(1234) = 2.

Mathematica

f[n_] := IntegerDigits[n] [[Floor[ (Log[10, n] + 2)/2]]]; Array[f, 105] (* Robert G. Wilson v, Jul 25 2010 *)

Crossrefs

Cf. A179636. - Robert G. Wilson v, Jul 25 2010

Sequence in context: A121042 A369529 A000030 * A306354 A216587 A174210

Adjacent sequences: A179632 A179633 A179634 * A179636 A179637 A179638

Keyword

easy,nonn,base

Author

Dominick Cancilla, Jul 21 2010

Extensions

More terms from Robert G. Wilson v, Jul 25 2010

Status

approved