OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
Multiplicative with a(p^e) = (p^(20*e+4) + p^(15*e+3) + p^(10*e+2) + p^(5*e+1) + 1)/(p^4 + p^3 + p^2 + p + 1). - Amiram Eldar, Sep 09 2020
MATHEMATICA
f[p_, e_] := (p^(20*e+4) + p^(15*e+3) + p^(10*e+2) + p^(5*e+1) + 1)/(p^4 + p^3 + p^2 + p + 1); a[n_] := Times @@ (f @@@ FactorInteger[n]); Array[a, 20] (* Amiram Eldar, Sep 09 2020 *)
Table[DivisorSigma[5, n^5]/DivisorSigma[1, n^5], {n, 20}] (* Harvey P. Dale, Mar 05 2022 *)
PROG
(PARI) a(n)=sumdiv(n^5, d, d^5)/sigma(n^5)
(PARI) a(n) = my(f=factor(n^5)); sigma(f, 5)/sigma(f); \\ Michel Marcus, Sep 09 2020
CROSSREFS
KEYWORD
nonn,easy,mult
AUTHOR
Benoit Cloitre, Nov 30 2002
STATUS
approved