A017675
Numerator of sum of -6th powers of divisors of n.
Original entry on oeis.org
1, 65, 730, 4161, 15626, 23725, 117650, 266305, 532171, 101569, 1771562, 506255, 4826810, 3823625, 2281396, 17043521, 24137570, 34591115, 47045882, 32509893, 85884500, 57575765, 148035890, 97201325, 244156251, 12067025, 387952660, 244770825, 594823322
Offset: 1
1, 65/64, 730/729, 4161/4096, 15626/15625, 23725/23328, 117650/117649, 266305/262144, ...
-
[Numerator(DivisorSigma(6,n)/n^6): n in [1..20]]; // G. C. Greubel, Nov 07 2018
-
A017675[n_Integer] := Numerator[DivisorSigma[-6, n]]; Table[A017675[n], {n, 100}] (* Vladimir Joseph Stephan Orlovsky, Jul 22 2011 *)
Table[Numerator[DivisorSigma[6, n]/n^6], {n, 1, 20}] (* G. C. Greubel, Nov 07 2018 *)
-
vector(20, n, numerator(sigma(n, 6)/n^6)) \\ G. C. Greubel, Nov 07 2018
A017676
Denominator of sum of -6th powers of divisors of n.
Original entry on oeis.org
1, 64, 729, 4096, 15625, 23328, 117649, 262144, 531441, 100000, 1771561, 497664, 4826809, 3764768, 2278125, 16777216, 24137569, 34012224, 47045881, 32000000, 85766121, 56689952, 148035889, 95551488, 244140625, 11881376, 387420489, 240945152, 594823321
Offset: 1
1, 65/64, 730/729, 4161/4096, 15626/15625, 23725/23328, 117650/117649, 266305/262144, ...
-
[Denominator(DivisorSigma(6,n)/n^6): n in [1..20]]; // G. C. Greubel, Nov 07 2018
-
A017676[n_Integer] := Denominator[DivisorSigma[-6, n]]; A017676 /@ Range[100] (* Vladimir Joseph Stephan Orlovsky, Jul 22 2011 *)
Table[Denominator[DivisorSigma[6, n]/n^6], {n, 1, 20}] (* G. C. Greubel, Nov 07 2018 *)
-
vector(20, n, denominator(sigma(n, 6)/n^6)) \\ G. C. Greubel, Nov 07 2018
A017677
Numerator of sum of -7th powers of divisors of n.
Original entry on oeis.org
1, 129, 2188, 16513, 78126, 23521, 823544, 2113665, 4785157, 5039127, 19487172, 9032611, 62748518, 13279647, 56979896, 270549121, 410338674, 205761751, 893871740, 645047319, 1801914272, 628461297, 3404825448, 385391585, 6103593751, 4047279411, 10465138360, 34691791
Offset: 1
1, 129/128, 2188/2187, 16513/16384, 78126/78125, 23521/23328, 823544/823543, 2113665/2097152, ...
-
[Numerator(DivisorSigma(7,n)/n^7): n in [1..20]]; // G. C. Greubel, Nov 07 2018
-
Table[Numerator[Total[Divisors[n]^-7]],{n,30}] (* Harvey P. Dale, Nov 29 2014 *)
Table[Numerator[DivisorSigma[7, n]/n^7], {n, 1, 20}] (* G. C. Greubel, Nov 07 2018 *)
-
vector(20, n, numerator(sigma(n, 7)/n^7)) \\ G. C. Greubel, Nov 07 2018
A017678
Denominator of sum of -7th powers of divisors of n.
Original entry on oeis.org
1, 128, 2187, 16384, 78125, 23328, 823543, 2097152, 4782969, 5000000, 19487171, 8957952, 62748517, 13176688, 56953125, 268435456, 410338673, 204073344, 893871739, 640000000, 1801088541, 623589472
Offset: 1
1, 129/128, 2188/2187, 16513/16384, 78126/78125, 23521/23328, 823544/823543, 2113665/2097152, ...
-
[Denominator(DivisorSigma(7,n)/n^7): n in [1..20]]; // G. C. Greubel, Nov 07 2018
-
Table[Denominator[Total[Divisors[n]^-7]],{n,30}] (* Harvey P. Dale, Mar 21 2012 *)
Table[Denominator[DivisorSigma[7, n]/n^7], {n, 1, 20}] (* G. C. Greubel, Nov 07 2018 *)
-
vector(20, n, denominator(sigma(n, 7)/n^7)) \\ G. C. Greubel, Nov 07 2018
A017679
Numerator of sum of -8th powers of divisors of n.
Original entry on oeis.org
1, 257, 6562, 65793, 390626, 843217, 5764802, 16843009, 43053283, 50195441, 214358882, 71955611, 815730722, 740777057, 2563287812, 4311810305, 6975757442, 11064693731, 16983563042, 12850228209, 37828630724, 27545116337, 78310985282, 55261912529, 152588281251
Offset: 1
1, 257/256, 6562/6561, 65793/65536, 390626/390625, 843217/839808, 5764802/5764801, 16843009/16777216, ...
-
[Numerator(DivisorSigma(8,n)/n^8): n in [1..20]]; // G. C. Greubel, Nov 07 2018
-
Table[Numerator[DivisorSigma[8, n]/n^8], {n, 1, 20}] (* G. C. Greubel, Nov 07 2018 *)
-
vector(20, n, numerator(sigma(n, 8)/n^8)) \\ G. C. Greubel, Nov 07 2018
A017680
Denominator of sum of -8th powers of divisors of n.
Original entry on oeis.org
1, 256, 6561, 65536, 390625, 839808, 5764801, 16777216, 43046721, 50000000, 214358881, 71663616, 815730721, 737894528, 2562890625, 4294967296, 6975757441, 11019960576, 16983563041, 12800000000
Offset: 1
1, 257/256, 6562/6561, 65793/65536, 390626/390625, 843217/839808, 5764802/5764801, 16843009/16777216, ...
-
[Denominator(DivisorSigma(8,n)/n^8): n in [1..20]]; // G. C. Greubel, Nov 07 2018
-
Table[Denominator[Total[1/Divisors[n]^8]],{n,20}] (* Harvey P. Dale, Dec 16 2013 *)
Table[Denominator[DivisorSigma[8, n]/n^8], {n, 1, 20}] (* G. C. Greubel, Nov 07 2018 *)
-
vector(20, n, denominator(sigma(n, 8)/n^8)) \\ G. C. Greubel, Nov 07 2018
A017681
Numerator of sum of -9th powers of divisors of n.
Original entry on oeis.org
1, 513, 19684, 262657, 1953126, 93499, 40353608, 134480385, 387440173, 500976819, 2357947692, 1292535097, 10604499374, 2587675113, 1423901192, 68853957121, 118587876498, 7361363287, 322687697780, 256501107891, 113474345696, 302406791499, 1801152661464, 24510295355
Offset: 1
1, 513/512, 19684/19683, 262657/262144, 1953126/1953125, 93499/93312, 40353608/40353607, 134480385/134217728, ...
-
[Numerator(DivisorSigma(9,n)/n^9): n in [1..20]]; // G. C. Greubel, Nov 07 2018
-
Table[Numerator[Total[1/Divisors[n]^9]],{n,20}] (* Harvey P. Dale, Aug 26 2013 *)
Table[Numerator[DivisorSigma[9, n]/n^9], {n, 1, 20}] (* G. C. Greubel, Nov 07 2018 *)
-
vector(20, n, numerator(sigma(n, 9)/n^9)) \\ G. C. Greubel, Nov 07 2018
A017682
Denominator of sum of -9th powers of divisors of n.
Original entry on oeis.org
1, 512, 19683, 262144, 1953125, 93312, 40353607, 134217728, 387420489, 500000000, 2357947691, 1289945088, 10604499373, 2582630848, 1423828125, 68719476736, 118587876497, 7346640384, 322687697779
Offset: 1
1, 513/512, 19684/19683, 262657/262144, 1953126/1953125, 93499/93312, 40353608/40353607, 134480385/134217728, ...
-
[Denominator(DivisorSigma(9,n)/n^9): n in [1..20]]; // G. C. Greubel, Nov 07 2018
-
Table[Denominator[DivisorSigma[9, n]/n^9], {n, 1, 20}] (* G. C. Greubel, Nov 07 2018 *)
-
vector(20, n, denominator(sigma(n, 9)/n^9)) \\ G. C. Greubel, Nov 07 2018
A017683
Numerator of sum of -10th powers of divisors of n.
Original entry on oeis.org
1, 1025, 59050, 1049601, 9765626, 30263125, 282475250, 1074791425, 3486843451, 200195333, 25937424602, 10329823175, 137858491850, 144768565625, 23066408612, 1100586419201, 2015993900450, 3574014537275, 6131066257802, 5125005407613, 16680163512500, 13292930108525
Offset: 1
1, 1025/1024, 59050/59049, 1049601/1048576, 9765626/9765625, 30263125/30233088, 282475250/282475249, ...
-
[Numerator(DivisorSigma(10,n)/n^10): n in [1..20]]; // G. C. Greubel, Nov 07 2018
-
Table[Numerator[Total[Divisors[n]^-10]],{n,20}] (* Harvey P. Dale, Sep 04 2018 *)
Table[Numerator[DivisorSigma[10, n]/n^10], {n, 1, 20}] (* G. C. Greubel, Nov 07 2018 *)
-
vector(20, n, numerator(sigma(n, 10)/n^10)) \\ G. C. Greubel, Nov 07 2018
A017684
Denominator of sum of -10th powers of divisors of n.
Original entry on oeis.org
1, 1024, 59049, 1048576, 9765625, 30233088, 282475249, 1073741824, 3486784401, 200000000, 25937424601, 10319560704, 137858491849, 144627327488, 23066015625, 1099511627776, 2015993900449, 3570467226624
Offset: 1
1, 1025/1024, 59050/59049, 1049601/1048576, 9765626/9765625, 30263125/30233088, 282475250/282475249, ...
-
[Denominator(DivisorSigma(10,n)/n^10): n in [1..20]]; // G. C. Greubel, Nov 06 2018
-
Table[Denominator[DivisorSigma[10, n]/n^10], {n, 1, 20}] (* G. C. Greubel, Nov 06 2018 *)
-
vector(20, n, denominator(sigma(n, 10)/n^10)) \\ G. C. Greubel, Nov 06 2018
Comments