A017693 Numerator of sum of -15th powers of divisors of n.
1, 32769, 14348908, 1073774593, 30517578126, 13061093507, 4747561509944, 35185445863425, 205891146443557, 500015258805447, 4177248169415652, 3851873211923611, 51185893014090758, 19446605389919367, 48654880101420712, 1152956690052710401, 2862423051509815794
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[Numerator(DivisorSigma(15,n)/n^15): n in [1..20]]; // G. C. Greubel, Nov 06 2018
-
Mathematica
Table[Numerator[DivisorSigma[15, n]/n^15], {n, 1, 20}] (* G. C. Greubel, Nov 06 2018 *)
-
PARI
vector(20, n, numerator(sigma(n, 15)/n^15)) \\ G. C. Greubel, Nov 06 2018
Comments