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
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 22 2003
STATUS
approved