A017697 Numerator of sum of -17th powers of divisors of n.
1, 131073, 129140164, 17180000257, 762939453126, 1410565726331, 232630513987208, 2251816993685505, 16677181828806733, 50000381469792099, 505447028499293772, 554657012677255537, 8650415919381337934, 3811447419980664273, 32842042032920650888, 295150156996346511361
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[Numerator(DivisorSigma(17,n)/n^17): n in [1..20]]; // G. C. Greubel, Nov 05 2018
-
Mathematica
Table[Numerator[DivisorSigma[17, n]/n^17], {n, 1, 20}] (* G. C. Greubel, Nov 05 2018 *)
-
PARI
vector(20, n, numerator(sigma(n, 17)/n^17)) \\ G. C. Greubel, Nov 05 2018
Comments