login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A179636 Median of the digits in n (rounding up). 2
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, 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, 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 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

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

FORMULA

Function selects the middle digit in n or, for even numbers, the digit to the right of the middle.

EXAMPLE

a(1) = 1.

a(12) = 2.

a(123) = 2.

a(1234) = 3.

MAPLE

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

MATHEMATICA

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

CROSSREFS

Cf. A179635.

Sequence in context: A118943 A217657 A010879 * A175419 A175422 A175423

Adjacent sequences:  A179633 A179634 A179635 * A179637 A179638 A179639

KEYWORD

easy,nonn,base

AUTHOR

Dominick Cancilla, Jul 21 2010

EXTENSIONS

More terms from R. J. Mathar and Robert G. Wilson v, Jul 27 2010

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 19 00:55 EDT 2019. Contains 324217 sequences. (Running on oeis4.)