A017710 Denominator of sum of -23rd powers of divisors of n.
1, 8388608, 94143178827, 70368744177664, 11920928955078125, 65810851921133568, 27368747340080916343, 590295810358705651712, 8862938119652501095929, 50000000000000000000000, 895430243255237372246531
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A017709.
Programs
-
Magma
[Denominator(DivisorSigma(23,n)/n^23): n in [1..20]]; // G. C. Greubel, Nov 03 2018
-
Mathematica
Table[Denominator[DivisorSigma[23, n]/n^23], {n, 1, 20}] (* G. C. Greubel, Nov 03 2018 *)
-
PARI
a(n) = denominator(sigma(n, 23)/n^23); \\ G. C. Greubel, Nov 03 2018
Comments