1,2

a(n) is average (rounded up) of middle divisor(s) of n.

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

Do[l = Divisors[n]; k = Length[l]; If[EvenQ[k], m = (l[[k/2]] + l[[k/2 + 1]])/2, m = l[[(k+1)/2]]]; Print[Ceiling[m]], {n, 1, 100}] (* Ryan Propper, Sep 17 2005 *)

Sequence in context: A038809 A078342 A177903 * A003050 A070868 A272612

Adjacent sequences: A107322 A107323 A107324 * A107326 A107327 A107328

nonn

Leroy Quet, May 21 2005

More terms from Ryan Propper, Sep 17 2005

approved