%I #5 Oct 20 2017 14:54:40
%S 0,1,1,2,3,2,4,3,4,4,7,4,8,6,6,6,11,6,13,7,9,10,16,8,13,12,12,10,20,
%T 10,21,12,15,16,16,11,25,17,17,13,28,14,30,17,16,21,33,14,26,19,23,20,
%U 37,18,25,19,26,27,41,17,42,29,23,23,30,22,47,26,32,24,49,20,51,35,28,29
%N a(n) = nearest integer to the standard deviation of the divisors of n.
%H Hans Havermann, <a href="/A076753/b076753.txt">Table of n, a(n) for n = 1..10000</a>
%e The standard deviation of the divisors {1, 2, 3, 6} of 6 is approximately 2.16025, so that a(6) = 2.
%t Flatten[Append[{0}, Table[Round[StandardDeviation[Divisors[n]]], {n, 2, 100}]]]
%K nonn
%O 1,4
%A _Joseph L. Pe_, Nov 12 2002
|