A017691 Numerator of sum of -14th powers of divisors of n.
1, 16385, 4782970, 268451841, 6103515626, 39184481725, 678223072850, 4398314962945, 22876797237931, 10000610353201, 379749833583242, 213999516991295, 3937376385699290, 5556342524323625, 5838586426737844, 72061992352890881, 168377826559400930, 374836322743499435
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[Numerator(DivisorSigma(14,n)/n^14): n in [1..20]]; // G. C. Greubel, Nov 06 2018
-
Mathematica
Table[Numerator[DivisorSigma[14, n]/n^14], {n, 1, 20}] (* G. C. Greubel, Nov 06 2018 *)
-
PARI
vector(20, n, numerator(sigma(n, 14)/n^14)) \\ G. C. Greubel, Nov 06 2018
Comments