This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A107325 #9 Nov 18 2018 01:08:16
%S A107325 1,2,2,2,3,3,4,3,3,4,6,4,7,5,4,4,9,5,10,5,5,7,12,5,5,8,6,6,15,6,16,6,
%T A107325 7,10,6,6,19,11,8,7,21,7,22,8,7,13,24,7,7,8,10,9,27,8,8,8,11,16,30,8,
%U A107325 31,17,8,8,9,9,34,11,13,9,36,9,37,20,10,12,9,10,40,9,9,22,42,10,11,23,16
%N A107325 a(n) = ceiling(A063655(n)/2).
%C A107325 a(n) is average (rounded up) of middle divisor(s) of n.
%t A107325 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 *)
%K A107325 nonn
%O A107325 1,2
%A A107325 _Leroy Quet_, May 21 2005
%E A107325 More terms from _Ryan Propper_, Sep 17 2005