[go: up one dir, main page]

login
A091258
Denominator of sigma_3(n)/sigma(n).
4
1, 1, 1, 7, 1, 1, 1, 1, 13, 1, 1, 1, 1, 1, 1, 1, 1, 13, 1, 1, 1, 1, 1, 1, 31, 1, 1, 7, 1, 1, 1, 7, 1, 1, 1, 91, 1, 1, 1, 1, 1, 1, 1, 7, 13, 1, 1, 1, 19, 31, 1, 7, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 13, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 31, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 13, 1, 7, 1, 1, 1, 1, 1, 19, 13
OFFSET
1,4
COMMENTS
Conjecture: The set of distinct terms is A004611. - Michel Marcus, Aug 10 2024
LINKS
MATHEMATICA
Denominator[Table[DivisorSigma[3, n]/DivisorSigma[1, n], {n, 100}]] (* Harvey P. Dale, Oct 06 2017 *)
PROG
(PARI) a(n) = denominator(sigma(n, 3)/sigma(n)); \\ Michel Marcus, Dec 29 2013
CROSSREFS
Cf. A001158, A000203, A091259 (numerators), A091260.
Sequence in context: A331927 A285483 A284097 * A351568 A174544 A168423
KEYWORD
easy,nonn,frac
AUTHOR
Labos Elemer, Feb 12 2004
STATUS
approved