OFFSET
1,2
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Ore's Conjecture
EXAMPLE
1, 4/3, 3/2, 12/7, 5/3, 2, 7/4, 32/15, ...
MATHEMATICA
f[n_] := DivisorSigma[0, n]/Plus @@ (1/Divisors@n); Numerator@ Array[f, 70] (* Robert G. Wilson v, Aug 04 2010 *)
Table[Numerator[DivisorSigma[0, n]/DivisorSigma[-1, n]], {n, 70}] (* Ivan Neretin, Nov 13 2016 *)
PROG
(PARI) a(n) = my(d=divisors(n)); numerator(#d/sum(k=1, #d, 1/d[k])); \\ Michel Marcus, Nov 13 2016
(Python)
from sympy import gcd, divisor_sigma
def A099377(n): return (lambda x, y: y*n//gcd(x, y*n))(divisor_sigma(n), divisor_sigma(n, 0)) # Chai Wah Wu, Oct 20 2021
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Eric W. Weisstein, Oct 13 2004
EXTENSIONS
More terms from Robert G. Wilson v, Aug 04 2010
STATUS
approved