|
%I #9 Nov 18 2018 01:08:16
%S 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 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 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 a(n) = ceiling(A063655(n)/2).
%C a(n) is average (rounded up) of middle divisor(s) of n.
%t 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 nonn
%O 1,2
%A _Leroy Quet_, May 21 2005
%E More terms from _Ryan Propper_, Sep 17 2005
|
