A053815 Floor(n / (sum of proper divisors of n)).

2, 3, 1, 5, 1, 7, 1, 2, 1, 11, 0, 13, 1, 1, 1, 17, 0, 19, 0, 1, 1, 23, 0, 4, 1, 2, 1, 29, 0, 31, 1, 2, 1, 2, 0, 37, 1, 2, 0, 41, 0, 43, 1, 1, 1, 47, 0, 6, 1, 2, 1, 53, 0, 3, 0, 2, 1, 59, 0, 61, 1, 1, 1, 3, 0, 67, 1, 2, 0, 71, 0, 73, 1, 1, 1, 4, 0, 79, 0

Offset

2,1

Links

Charles R Greathouse IV, Table of n, a(n) for n = 2..10000

Mathematica

Table[Floor[n/(DivisorSigma[1, n]-n)], {n, 2, 80}] (* Harvey P. Dale, Nov 16 2017 *)

Prog

(PARI) a(n)=n\(sigma(n)-n) \\ Charles R Greathouse IV, Mar 11 2014

Crossrefs

Cf. A001065.

Sequence in context: A089026 A080305 A220137 * A194446 A251758 A250480

Adjacent sequences: A053812 A053813 A053814 * A053816 A053817 A053818

Keyword

nonn

Author

Henry Bottomley, Mar 28 2000

Status

approved