A017699 Numerator of sum of -18th powers of divisors of n.
1, 262145, 387420490, 68719738881, 3814697265626, 50780172175525, 1628413597910450, 18014467229220865, 150094635684419611, 100000381469752777, 5559917313492231482, 4437239151658178615, 112455406951957393130, 213440241312117457625, 295578376770097015348
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[Numerator(DivisorSigma(18,n)/n^18): n in [1..20]]; // G. C. Greubel, Nov 05 2018
-
Mathematica
Table[Numerator[DivisorSigma[18, n]/n^18], {n, 1, 20}] (* G. C. Greubel, Nov 05 2018 *)
-
PARI
vector(20, n, numerator(sigma(n, 18)/n^18)) \\ G. C. Greubel, Nov 05 2018
Comments