|
|
A076753
|
|
a(n) = nearest integer to the standard deviation of the divisors of n.
|
|
1
|
|
|
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, 10, 21, 12, 15, 16, 16, 11, 25, 17, 17, 13, 28, 14, 30, 17, 16, 21, 33, 14, 26, 19, 23, 20, 37, 18, 25, 19, 26, 27, 41, 17, 42, 29, 23, 23, 30, 22, 47, 26, 32, 24, 49, 20, 51, 35, 28, 29
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
LINKS
|
|
|
EXAMPLE
|
The standard deviation of the divisors {1, 2, 3, 6} of 6 is approximately 2.16025, so that a(6) = 2.
|
|
MATHEMATICA
|
Flatten[Append[{0}, Table[Round[StandardDeviation[Divisors[n]]], {n, 2, 100}]]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|