A108775 a(n) = floor(sigma(n)/n).

1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1

Offset

1,6

Comments

The sequence is unbounded. - Vrabec

First occurrence of k: 1,6,120,27720,..., which is A023199. - Robert G. Wilson v, Jun 28 2005

a(n) > 1 if n is perfect or abundant. a(n) = 2 if n is perfect or primitive abundant (see A091191). - Alonso del Arte, Feb 06 2012

References

W. Sierpinski, Elementary Theory of Numbers, 1987, p. 174 ff.

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Formula

a(n) = floor(A017665(n)/A017666(n)). - Michel Marcus, Sep 18 2015

Example

a(6) = 2 because sigma(6)/6 = (1 + 2 + 3 + 6)/6 = 2.

Mathematica

Table[ Floor[ DivisorSigma[1, n]/n], {n, 105}] (* Robert G. Wilson v, Jun 28 2005 *)

Prog

(Haskell)
a108775 n = div (a000203 n) n  -- Reinhard Zumkeller, Mar 23 2013
(PARI) a(n) = sigma(n)\n; \\ Michel Marcus, Sep 18 2015

Crossrefs

Cf. A000203, A054024.

Cf. A017665, A017666.

Sequence in context: A107577 A073700 A226957 * A300826 A334926 A305936

Adjacent sequences: A108772 A108773 A108774 * A108776 A108777 A108778

Keyword

nonn

Author

Franz Vrabec, Jun 27 2005

Extensions

More terms from Robert G. Wilson v, Jun 28 2005

Status

approved