cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 21-30 of 51 results. Next

A321564 a(n) = Sum_{d divides n} (-1)^(d + n/d) * d^8.

Original entry on oeis.org

1, -257, 6562, -65281, 390626, -1686434, 5764802, -16711425, 43053283, -100390882, 214358882, -428373922, 815730722, -1481554114, 2563287812, -4278124289, 6975757442, -11064693731, 16983563042, -25500455906, 37828630724, -55090232674
Offset: 1

Views

Author

N. J. A. Sloane, Nov 23 2018

Keywords

Crossrefs

Column k=8 of A322083.
Cf. A321543 - A321565, A321807 - A321836 for similar sequences.

Programs

  • Mathematica
    a[n_] := DivisorSum[n, (-1)^(# + n/#)*#^8 &]; Array[a, 25] (* Amiram Eldar, Nov 22 2022 *)
  • PARI
    apply( A321564(n)=sumdiv(n, d, (-1)^(n\d-d)*d^8), [1..30]) \\ M. F. Hasler, Nov 26 2018

Formula

G.f.: Sum_{k>=1} (-1)^(k+1)*k^8*x^k/(1 + x^k). - Ilya Gutkovskiy, Dec 22 2018
Multiplicative with a(2^e) = -(127*2^(8*e+1) + 511)/255, and a(p^e) = (p^(8*e+8) - 1)/(p^8 - 1) for p > 2. - Amiram Eldar, Nov 22 2022

A321808 a(n) = Sum_{d divides n} (-1)^(d + n/d) * d^11.

Original entry on oeis.org

1, -2049, 177148, -4192257, 48828126, -362976252, 1977326744, -8585738241, 31381236757, -100048830174, 285311670612, -742649943036, 1792160394038, -4051542498456, 8649804864648, -17583591913473, 34271896307634, -64300154115093
Offset: 1

Views

Author

N. J. A. Sloane, Nov 23 2018

Keywords

Crossrefs

Column k=11 of A322083.
Cf. A321543 - A321565, A321807 - A321836 for similar sequences.

Programs

  • Mathematica
    a[n_] := DivisorSum[n, (-1)^(# + n/#)*#^11 &]; Array[a, 50] (* Amiram Eldar, Nov 22 2022 *)
  • PARI
    apply( A321808(n)=sumdiv(n, d, (-1)^(n\d-d)*d^11), [1..30]) \\ M. F. Hasler, Nov 26 2018

Formula

G.f.: Sum_{k>=1} (-1)^(k+1)*k^11*x^k/(1 + x^k). - Ilya Gutkovskiy, Dec 22 2018
Multiplicative with a(2^e) = -3*(341*2^(11*e+1) + 1365)/2047, and a(p^e) = (p^(11*e+11) - 1)/(p^11 - 1) for p > 2. - Amiram Eldar, Nov 22 2022

A321812 Sum of 8th powers of odd divisors of n.

Original entry on oeis.org

1, 1, 6562, 1, 390626, 6562, 5764802, 1, 43053283, 390626, 214358882, 6562, 815730722, 5764802, 2563287812, 1, 6975757442, 43053283, 16983563042, 390626, 37828630724, 214358882, 78310985282, 6562, 152588281251, 815730722, 282472589764
Offset: 1

Views

Author

N. J. A. Sloane, Nov 24 2018

Keywords

Crossrefs

Column k=8 of A285425.
Cf. A050999, A051000, A051001, A051002, A321810 - A321816 (analog for 2nd .. 12th powers).
Cf. A321543 - A321565, A321807 - A321836 for related sequences.

Programs

  • Mathematica
    a[n_] := DivisorSum[n, #^8 &, OddQ[#] &]; Array[a, 20] (* Amiram Eldar, Dec 07 2018 *)
  • PARI
    apply( A321812(n)=sigma(n>>valuation(n,2),8), [1..30]) \\ M. F. Hasler, Nov 26 2018
    
  • Python
    from sympy import divisor_sigma
    def A321812(n): return int(divisor_sigma(n>>(~n&n-1).bit_length(),8)) # Chai Wah Wu, Jul 16 2022

Formula

a(n) = A013956(A000265(n)) = sigma_8(odd part of n); in particular, a(2^k) = 1 for all k >= 0. - M. F. Hasler, Nov 26 2018
G.f.: Sum_{k>=1} (2*k - 1)^8*x^(2*k-1)/(1 - x^(2*k-1)). - Ilya Gutkovskiy, Dec 07 2018
From Amiram Eldar, Nov 02 2022: (Start)
Multiplicative with a(2^e) = 1 and a(p^e) = (p^(8*e+8)-1)/(p^8-1) for p > 2.
Sum_{k=1..n} a(k) ~ c * n^9, where c = zeta(9)/18 = 0.0556671... . (End)

A321813 Sum of 9th powers of odd divisors of n.

Original entry on oeis.org

1, 1, 19684, 1, 1953126, 19684, 40353608, 1, 387440173, 1953126, 2357947692, 19684, 10604499374, 40353608, 38445332184, 1, 118587876498, 387440173, 322687697780, 1953126, 794320419872, 2357947692, 1801152661464, 19684, 3814699218751
Offset: 1

Views

Author

N. J. A. Sloane, Nov 24 2018

Keywords

Crossrefs

Column k=9 of A285425.
Cf. A050999, A051000, A051001, A051002, A321810 - A321816 (analog for 2nd .. 12th powers).
Cf. A321543 - A321565, A321807 - A321836 for related sequences.

Programs

  • Mathematica
    a[n_] := DivisorSum[n, #^9 &, OddQ[#] &]; Array[a, 20] (* Amiram Eldar, Dec 07 2018 *)
  • PARI
    apply( A321813(n)=sigma(n>>valuation(n,2),9), [1..30]) \\ M. F. Hasler, Nov 26 2018
    
  • Python
    from sympy import divisor_sigma
    def A321813(n): return int(divisor_sigma(n>>(~n&n-1).bit_length(),9)) # Chai Wah Wu, Jul 16 2022

Formula

a(n) = A013957(A000265(n)) = sigma_9(odd part of n); in particular, a(2^k) = 1 for all k >= 0. - M. F. Hasler, Nov 26 2018
G.f.: Sum_{k>=1} (2*k - 1)^9*x^(2*k-1)/(1 - x^(2*k-1)). - Ilya Gutkovskiy, Dec 07 2018
From Amiram Eldar, Nov 02 2022: (Start)
Multiplicative with a(2^e) = 1 and a(p^e) = (p^(9*e+9)-1)/(p^9-1) for p > 2.
Sum_{k=1..n} a(k) ~ c * n^10, where c = zeta(10)/20 = Pi^10/1871100 = 0.0500497... . (End)

A321814 Sum of 10th powers of odd divisors of n.

Original entry on oeis.org

1, 1, 59050, 1, 9765626, 59050, 282475250, 1, 3486843451, 9765626, 25937424602, 59050, 137858491850, 282475250, 576660215300, 1, 2015993900450, 3486843451, 6131066257802, 9765626, 16680163512500, 25937424602, 41426511213650, 59050
Offset: 1

Views

Author

N. J. A. Sloane, Nov 24 2018

Keywords

Crossrefs

Column k=10 of A285425.
Cf. A050999, A051000, A051001, A051002, A321810 - A321816 (analog for 2nd .. 12th powers).
Cf. A321543 - A321565, A321807 - A321836 for related sequences.

Programs

  • Mathematica
    a[n_] := DivisorSum[n, #^10 &, OddQ[#] &]; Array[a, 20] (* Amiram Eldar, Dec 07 2018 *)
  • PARI
    apply( A321814(n)=sigma(n>>valuation(n,2),10), [1..30]) \\ M. F. Hasler, Nov 26 2018
    
  • Python
    from sympy import divisor_sigma
    def A321814(n): return int(divisor_sigma(n>>(~n&n-1).bit_length(),10)) # Chai Wah Wu, Jul 16 2022

Formula

a(n) = A013958(A000265(n)) = sigma_10(odd part of n); in particular, a(2^k) = 1 for all k >= 0. - M. F. Hasler, Nov 26 2018
G.f.: Sum_{k>=1} (2*k - 1)^10*x^(2*k-1)/(1 - x^(2*k-1)). - Ilya Gutkovskiy, Dec 07 2018
From Amiram Eldar, Nov 02 2022: (Start)
Multiplicative with a(2^e) = 1 and a(p^e) = (p^(10*e+10)-1)/(p^10-1) for p > 2.
Sum_{k=1..n} a(k) ~ c * n^11, where c = zeta(11)/22 = 0.045477... . (End)

A321828 a(n) = Sum_{d|n, d==1 mod 4} d^12 - Sum_{d|n, d==3 mod 4} d^12.

Original entry on oeis.org

1, 1, -531440, 1, 244140626, -531440, -13841287200, 1, 282429005041, 244140626, -3138428376720, -531440, 23298085122482, -13841287200, -129746094281440, 1, 582622237229762, 282429005041, -2213314919066160, 244140626, 7355813669568000
Offset: 1

Views

Author

N. J. A. Sloane, Nov 24 2018

Keywords

Crossrefs

Column k=12 of A322143.
Cf. A321543 - A321565, A321807 - A321836 for similar sequences.
Cf. A000265.

Programs

  • Mathematica
    s[n_, r_] := DivisorSum[n, #^12 &, Mod[#, 4] == r &]; a[n_] := s[n, 1] - s[n, 3]; Array[a, 30] (* Amiram Eldar, Nov 26 2018 *)
    f[p_, e_] := If[Mod[p, 4] == 1, ((p^12)^(e+1)-1)/(p^12-1), ((-p^12)^(e+1)-1)/(-p^12-1)]; f[2, e_] := 1; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 60] (* Amiram Eldar, Sep 27 2023 *)
  • PARI
    apply( A321828(n)=sumdiv(n>>valuation(n,2),d,(2-d%4)*d^12), [1..40]) \\ M. F. Hasler, Nov 26 2018

Formula

a(n) = a(A000265(n)). - M. F. Hasler, Nov 26 2018
G.f.: Sum_{k>=1} (-1)^(k-1)*(2*k - 1)^12*x^(2*k-1)/(1 - x^(2*k-1)). - Ilya Gutkovskiy, Dec 22 2018
Multiplicative with a(2^e) = 1, and for an odd prime p, ((p^12)^(e+1)-1)/(p^12-1) if p == 1 (mod 4) and ((-p^12)^(e+1)-1)/(-p^12-1) if p == 3 (mod 4). - Amiram Eldar, Sep 27 2023
a(n) = Sum_{d|n} d^12*sin(d*Pi/2). - Ridouane Oudra, Sep 08 2024

A321544 a(n) = Sum_{d|n} (-1)^(d-1)*d^5.

Original entry on oeis.org

1, -31, 244, -1055, 3126, -7564, 16808, -33823, 59293, -96906, 161052, -257420, 371294, -521048, 762744, -1082399, 1419858, -1838083, 2476100, -3297930, 4101152, -4992612, 6436344, -8252812, 9768751, -11510114, 14408200, -17732440, 20511150, -23645064, 28629152, -34636831, 39296688, -44015598
Offset: 1

Views

Author

N. J. A. Sloane, Nov 23 2018

Keywords

Crossrefs

Divisor sums Sum_{d|n} (-1)^(d-1)*d^k: A048272 (k = 0), A002129 (k = 1), A321543 (k = 2), A138503 (k = 3), A279395 (k = 4, unsigned), A321545 - A321551 (k = 6 to k = 12).
Cf. A321552 - A321565, A321807 - A321836 for similar sequences.

Programs

  • Maple
    with(numtheory):
    a := n -> add( (-1)^(d-1)*d^5, d in divisors(n) ): seq(a(n), n = 1..40);
    #  Peter Bala, Jan 11 2021
  • Mathematica
    f[p_, e_] := (p^(5*e + 5) - 1)/(p^5 - 1); f[2, e_] := 2 - (2^(5*e + 5) - 1)/31; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 35] (* Amiram Eldar, Nov 04 2022 *)
  • PARI
    apply( a(n)=sumdiv(n, d, (-1)^(d-1)*d^5), [1..30]) \\ M. F. Hasler, Nov 26 2018

Formula

G.f.: Sum_{k>=1} (-1)^(k-1)*k^5*x^k/(1 - x^k). - Ilya Gutkovskiy, Dec 23 2018
G.f.: Sum_{n >= 1} x^n*(x^(4*n) - 26*x^(3*n) + 66*x^(2*n) - 26*x^n + 1)/(1 + x^n)^6 (note [1,26,66,26,1] is row 5 of A008292). - Peter Bala, Jan 11 2021
Multiplicative with a(2^e) = 2 - (2^(5*e + 5) - 1)/31, and a(p^e) = (p^(5*e + 5) - 1)/(p^5 - 1) for p > 2. - Amiram Eldar, Nov 04 2022

A321545 a(n) = Sum_{d|n} (-1)^(d-1)*d^6.

Original entry on oeis.org

1, -63, 730, -4159, 15626, -45990, 117650, -266303, 532171, -984438, 1771562, -3036070, 4826810, -7411950, 11406980, -17043519, 24137570, -33526773, 47045882, -64988534, 85884500, -111608406, 148035890, -194401190, 244156251, -304089030, 387952660, -489306350, 594823322, -718639740, 887503682
Offset: 1

Views

Author

N. J. A. Sloane, Nov 23 2018

Keywords

Crossrefs

Cf. A321543 - A321565, A321807 - A321836 for similar sequences.

Programs

  • Mathematica
    f[p_, e_] := (p^(6*e + 6) - 1)/(p^6 - 1); f[2, e_] := 2 - (2^(6*e + 6) - 1)/63; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 30] (* Amiram Eldar, Nov 04 2022 *)
  • PARI
    apply( a(n)=sumdiv(n, d, (-1)^(d-1)*d^6), [1..30]) \\ M. F. Hasler, Nov 26 2018

Formula

G.f.: Sum_{k>=1} (-1)^(k-1)*k^6*x^k/(1 - x^k). - Ilya Gutkovskiy, Dec 23 2018
Multiplicative with a(2^e) = 2 - (2^(6*e + 6) - 1)/63, and a(p^e) = (p^(6*e + 6) - 1)/(p^6 - 1) for p > 2. - Amiram Eldar, Nov 04 2022

A321546 a(n) = Sum_{d|n} (-1)^(d-1)*d^7.

Original entry on oeis.org

1, -127, 2188, -16511, 78126, -277876, 823544, -2113663, 4785157, -9922002, 19487172, -36126068, 62748518, -104590088, 170939688, -270549119, 410338674, -607714939, 893871740, -1289938386, 1801914272, -2474870844, 3404825448, -4624694644, 6103593751, -7969061786, 10465138360, -13597534984, 17249876310
Offset: 1

Views

Author

N. J. A. Sloane, Nov 23 2018

Keywords

Crossrefs

Cf. A321543 - A321565, A321807 - A321836 for similar sequences.

Programs

  • Mathematica
    f[p_, e_] := (p^(7*e + 7) - 1)/(p^7 - 1); f[2, e_] := 2 - (2^(7*e + 7) - 1)/127; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 30] (* Amiram Eldar, Nov 04 2022 *)
  • PARI
    apply( a(n)=sumdiv(n, d, (-1)^(d-1)*d^7), [1..30]) \\ M. F. Hasler, Nov 26 2018

Formula

G.f.: Sum_{k>=1} (-1)^(k-1)*k^7*x^k/(1 - x^k). - Ilya Gutkovskiy, Dec 23 2018
Multiplicative with a(2^e) = 2 - (2^(7*e + 7) - 1)/127, and a(p^e) = (p^(7*e + 7) - 1)/(p^7 - 1) for p > 2. - Amiram Eldar, Nov 04 2022

A321559 a(n) = Sum_{d divides n} (-1)^(d + n/d) * d^3.

Original entry on oeis.org

1, -9, 28, -57, 126, -252, 344, -441, 757, -1134, 1332, -1596, 2198, -3096, 3528, -3513, 4914, -6813, 6860, -7182, 9632, -11988, 12168, -12348, 15751, -19782, 20440, -19608, 24390, -31752, 29792, -28089, 37296, -44226, 43344, -43149, 50654
Offset: 1

Views

Author

N. J. A. Sloane, Nov 23 2018

Keywords

Crossrefs

Column k=3 of A322083.
Cf. A321543 - A321565, A321807 - A321836 for similar sequences.

Programs

  • Magma
    m:=50; R:=PowerSeriesRing(Integers(), m); Coefficients(R!( (&+[(-1)^(k+1)*k^3*x^k/(1 + x^k) : k in [1..2*m]]) )); // G. C. Greubel, Nov 28 2018
    
  • Mathematica
    a[n_] := DivisorSum[n, (-1)^(# + n/#)*#^3 &]; Array[a, 50] (* Amiram Eldar, Nov 27 2018 *)
  • PARI
    apply( A321559(n)=sumdiv(n, d, (-1)^(n\d-d)*d^3), [1..30]) \\ M. F. Hasler, Nov 26 2018
    
  • Sage
    s=(sum((-1)^(k+1)*k^3*x^k/(1 + x^k)  for k in (1..50))).series(x, 50); a = s.coefficients(x, sparse=False); a[1:] # G. C. Greubel, Nov 28 2018

Formula

G.f.: Sum_{k>=1} (-1)^(k+1)*k^3*x^k/(1 + x^k). - Ilya Gutkovskiy, Nov 27 2018
From Peter Bala, Jan 29 2022: (Start)
Multiplicative with a(2^k) = - 3*(2^(3*k+1) + 5)/7 for k >= 1 and a(p^k) = (p^(3*k+3) - 1)/(p^3 - 1) for odd prime p.
n^3 = (-1)^(n+1)*Sum_{d divides n} A067856(n/d)*a(d). (End)
Previous Showing 21-30 of 51 results. Next