A017685 Numerator of sum of -11th powers of divisors of n.
1, 2049, 177148, 4196353, 48828126, 30248021, 1977326744, 8594130945, 31381236757, 50024415087, 285311670612, 185843885311, 1792160394038, 506442812307, 2883268288216, 17600780175361, 34271896307634, 21433384705031, 116490258898220, 102450026512239, 350279478046112
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[Numerator(DivisorSigma(11,n)/n^11): n in [1..20]]; // G. C. Greubel, Nov 06 2018
-
Mathematica
Table[Numerator[Total[Divisors[n]^-11]],{n,20}] (* Harvey P. Dale, Aug 26 2012 *) Table[Numerator[DivisorSigma[11, n]/n^11], {n, 1, 20}] (* G. C. Greubel, Nov 06 2018 *)
-
PARI
vector(20, n, numerator(sigma(n, 11)/n^11)) \\ G. C. Greubel, Nov 06 2018
Comments