A076753 a(n) = nearest integer to the standard deviation of the divisors of n.

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

Offset

1,4

Links

Hans Havermann, Table of n, a(n) for n = 1..10000

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

Sequence in context: A295753 A144968 A239328 * A352576 A245134 A068962

Adjacent sequences: A076750 A076751 A076752 * A076754 A076755 A076756

Keyword

nonn

Author

Joseph L. Pe, Nov 12 2002

Status

approved