A017701 Numerator of sum of -19th powers of divisors of n.
1, 524289, 1162261468, 274878431233, 19073486328126, 50780075233021, 11398895185373144, 144115462954287105, 1350851718835253557, 5000009536743426207, 61159090448414546292, 79870152251600907511, 1461920290375446110678, 747039419730512536827, 7389459406535218149656
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[Numerator(DivisorSigma(19,n)/n^19): n in [1..20]]; // G. C. Greubel, Nov 05 2018
-
Mathematica
Table[Numerator[DivisorSigma[19, n]/n^19], {n, 1, 20}] (* G. C. Greubel, Nov 05 2018 *)
-
PARI
vector(20, n, numerator(sigma(n, 19)/n^19)) \\ G. C. Greubel, Nov 05 2018
Comments