A017680 Denominator of sum of -8th powers of divisors of n.
1, 256, 6561, 65536, 390625, 839808, 5764801, 16777216, 43046721, 50000000, 214358881, 71663616, 815730721, 737894528, 2562890625, 4294967296, 6975757441, 11019960576, 16983563041, 12800000000
Offset: 1
Examples
1, 257/256, 6562/6561, 65793/65536, 390626/390625, 843217/839808, 5764802/5764801, 16843009/16777216, ...
Links
- G. C. Greubel, Table of n, a(n) for n = 1..10000
Crossrefs
Cf. A017679.
Programs
-
Magma
[Denominator(DivisorSigma(8,n)/n^8): n in [1..20]]; // G. C. Greubel, Nov 07 2018
-
Mathematica
Table[Denominator[Total[1/Divisors[n]^8]],{n,20}] (* Harvey P. Dale, Dec 16 2013 *) Table[Denominator[DivisorSigma[8, n]/n^8], {n, 1, 20}] (* G. C. Greubel, Nov 07 2018 *)
-
PARI
vector(20, n, denominator(sigma(n, 8)/n^8)) \\ G. C. Greubel, Nov 07 2018
Formula
Denominators of coefficients in expansion of Sum_{k>=1} x^k/(k^8*(1 - x^k)). - Ilya Gutkovskiy, May 25 2018
Comments