A017687 Numerator of sum of -12th powers of divisors of n.
1, 4097, 531442, 16781313, 244140626, 1088658937, 13841287202, 68736258049, 282430067923, 500122072361, 3138428376722, 1486382423891, 23298085122482, 28353876833297, 129746582562692, 281543712968705, 582622237229762, 1157115988280531, 2213314919066162, 2048500130460969
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[Numerator(DivisorSigma(12,n)/n^12): n in [1..20]]; // G. C. Greubel, Nov 06 2018
-
Mathematica
Table[Numerator[DivisorSigma[12, n]/n^12], {n, 1, 20}] (* G. C. Greubel, Nov 06 2018 *)
-
PARI
vector(20, n, numerator(sigma(n, 12)/n^12)) \\ G. C. Greubel, Nov 06 2018
Comments