A082898 a(n) = A082895(n)/n, where A082895(n) is the closest number to sigma(n) which is divisible by n.

1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 1, 2, 1, 2, 2, 2, 1, 3, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 1, 3, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 2, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 2, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 1, 2, 1, 3, 1, 2, 1, 2, 1, 3, 1, 2, 2, 2

Offset

1,2

Links

Antti Karttunen, Table of n, a(n) for n = 1..100000

Formula

a(n) = floor[(floor(n/2)+sigma[n])/n], sigma() = A000203().

Mathematica

Table[Floor[(Floor[n/2]+DivisorSigma[1, n])/n], {n, 1, 100}]

Prog

(PARI) A082898(n) = { my(s=sigma(n), a = ((s\n)*n), b = (1+(s\n))*n); if((b-s) <= abs(a-s), b, a)/n; }; \\ Antti Karttunen, Oct 09 2018

Crossrefs

Cf. A082893, A082894, A082895, A082901.

Sequence in context: A161280 A160984 A346094 * A095999 A334948 A161238

Adjacent sequences: A082895 A082896 A082897 * A082899 A082900 A082901

Keyword

nonn

Author

Labos Elemer, Apr 22 2003

Status

approved