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 41-50 of 245 results. Next

A175571 Decimal expansion of the Dirichlet beta function of 5.

Original entry on oeis.org

9, 9, 6, 1, 5, 7, 8, 2, 8, 0, 7, 7, 0, 8, 8, 0, 6, 4, 0, 0, 6, 3, 1, 9, 3, 6, 8, 6, 3, 0, 9, 7, 5, 2, 8, 1, 5, 1, 1, 3, 9, 5, 5, 2, 9, 3, 8, 8, 2, 6, 4, 9, 4, 3, 2, 0, 7, 9, 8, 3, 2, 1, 5, 1, 2, 4, 4, 6, 2, 8, 6, 5, 0, 1, 8, 2, 7, 4, 8, 1, 9, 2, 8, 9, 6, 5, 9, 8, 3, 2, 2, 7, 0, 5, 2, 4, 4, 7, 5, 5, 9, 9, 0, 8, 0
Offset: 0

Views

Author

R. J. Mathar, Jul 15 2010

Keywords

Comments

The value of the Dirichlet L-series L(m=4,r=2,s=4), see arXiv:1008.2547.

Examples

			0.99615782807708806400631936...
		

References

  • L. B. W. Jolley, Summation of Series, Dover, 1961, eq. 308.

Crossrefs

Cf. A003881 (beta(1)=Pi/4), A006752 (beta(2)=Catalan), A153071 (beta(3)), A175572 (beta(4)), A175570 (beta(6)), A258814 (beta(7)), A258815 (beta(8)), A258816 (beta(9)).
Cf. A101455.

Programs

  • Maple
    DirichletBeta := proc(s) 4^(-s)*(Zeta(0,s,1/4)-Zeta(0,s,3/4)) ; end proc: x := DirichletBeta(5) ; x := evalf(x) ;
  • Mathematica
    RealDigits[ DirichletBeta[5], 10, 105] // First (* Jean-François Alcover, Feb 20 2013, updated Mar 14 2018 *)
  • PARI
    5*Pi^5/1536 \\ Charles R Greathouse IV, Jan 31 2018
    
  • PARI
    beta(x)=(zetahurwitz(x,1/4)-zetahurwitz(x,3/4))/4^x
    beta(5) \\ Charles R Greathouse IV, Jan 31 2018

Formula

Equals 5*Pi^5/1536 = Sum_{n>=1} A101455(n)/n^5, where Pi^5 = A092731. [corrected by R. J. Mathar, Feb 01 2018]
Equals Sum_{n>=0} (-1)^n/(2*n+1)^5. - Jean-François Alcover, Mar 29 2013
Equals Product_{p prime >= 3} (1 - (-1)^((p-1)/2)/p^5)^(-1). - Amiram Eldar, Nov 06 2023

A175572 Decimal expansion of the Dirichlet beta function of 4.

Original entry on oeis.org

9, 8, 8, 9, 4, 4, 5, 5, 1, 7, 4, 1, 1, 0, 5, 3, 3, 6, 1, 0, 8, 4, 2, 2, 6, 3, 3, 2, 2, 8, 3, 7, 7, 8, 2, 1, 3, 1, 5, 8, 6, 0, 8, 8, 7, 0, 6, 2, 7, 3, 3, 9, 1, 0, 7, 8, 1, 9, 9, 2, 4, 0, 1, 6, 3, 9, 0, 1, 5, 1, 9, 4, 6, 9, 8, 0, 1, 8, 1, 9, 6, 4, 1, 1, 9, 1, 0, 4, 6, 8, 9, 9, 9, 7, 9, 9, 9, 3, 3, 7, 8, 5, 6, 2, 1
Offset: 0

Views

Author

R. J. Mathar, Jul 15 2010

Keywords

Comments

This is the value of the Dirichlet L-series for A101455 at s=4, see arXiv:1008.2547, L(m=4,r=2,s=4).

Examples

			0.988944551741105336108422633...
		

References

  • L. B. W. Jolley, Summation of Series, Dover, 1961, eq. (308).

Crossrefs

Cf. A003881 (beta(1)=Pi/4), A006752 (beta(2)=Catalan), A153071 (beta(3)), A175571 (beta(5)), A175570 (beta(6)), A258814 (beta(7)), A258815 (beta(8)), A258816 (beta(9)).
Cf. A101455.

Programs

  • Maple
    DirichletBeta := proc(s) 4^(-s)*(Zeta(0,s,1/4)-Zeta(0,s,3/4)) ; end proc: x := DirichletBeta(4) ; x := evalf(x) ;
  • Mathematica
    RealDigits[ DirichletBeta[4], 10, 105] // First (* Jean-François Alcover, Feb 11 2013, updated Mar 14 2018 *)
  • PARI
    beta(x)=(zetahurwitz(x,1/4)-zetahurwitz(x,3/4))/4^x
    beta(4) \\ Charles R Greathouse IV, Jan 31 2018

Formula

Equals Sum_{n>=1} A101455(n)/n^4. [corrected by R. J. Mathar, Feb 01 2018]
Equals (PolyGamma(3, 1/4) - PolyGamma(3, 3/4))/1536. - Jean-François Alcover, Jun 11 2015
Equals Product_{p prime >= 3} (1 - (-1)^((p-1)/2)/p^4)^(-1). - Amiram Eldar, Nov 06 2023

A248938 Decimal expansion of beta = G^2*(2/3)*Product_{prime p == 3 (mod 4)} (1 - 2/(p*(p-1)^2)) (where G is Catalan's constant), a constant related to the problem of integral Apollonian circle packings.

Original entry on oeis.org

4, 6, 1, 2, 6, 0, 9, 0, 8, 6, 1, 3, 8, 6, 1, 3, 0, 3, 3, 2, 8, 5, 2, 9, 8, 4, 6, 4, 2, 4, 6, 0, 7, 5, 1, 5, 8, 0, 1, 3, 8, 3, 4, 4, 3, 7, 6, 5, 8, 8, 2, 0, 6, 3, 0, 0, 7, 0, 3, 9, 7, 7, 5, 1, 9, 0, 7, 1, 2, 8, 1, 6, 0, 7, 2, 2, 0, 7, 4, 9, 8, 3, 7, 9, 1, 0, 4, 2, 6, 0, 7, 2, 6, 2, 1, 4, 8, 0, 7, 2, 3, 1, 6, 3, 1, 6
Offset: 0

Views

Author

Jean-François Alcover, Oct 17 2014

Keywords

Examples

			0.4612609086138613...
		

Crossrefs

Programs

  • Mathematica
    kmax = 25; Clear[P]; Do[P[k] = Product[p = Prime[n]; If[Mod[p, 4] == 3 , 1 - 2/(p*(p - 1)^2) // N[#, 40]&, 1], {n, 1, 2^k}]; Print["P(", k, ") = ", P[k]], {k, 10, kmax}]; beta = Catalan^2*(2/3)*P[kmax]; RealDigits[beta, 10, 16] // First
    (* -------------------------------------------------------------------------- *)
    $MaxExtraPrecision = 1000; digits = 121;
    f[p_] := (1 - 2/(p*(p - 1)^2));
    coefs = Rest[CoefficientList[Series[Log[f[1/x]], {x, 0, 1000}], x]];
    S[m_, n_, s_] := (t = 1; sums = 0; difs = 1; While[Abs[difs] > 10^(-digits - 5) || difs == 0, difs = (MoebiusMu[t]/t) * Log[If[s*t == 1, DirichletL[m, n, s*t], Sum[Zeta[s*t, j/m]*DirichletCharacter[m, n, j]^t, {j, 1, m}]/m^(s*t)]]; sums = sums + difs; t++]; sums);
    P[m_, n_, s_] := 1/EulerPhi[m] * Sum[Conjugate[DirichletCharacter[m, r, n]] * S[m, r, s], {r, 1, EulerPhi[m]}] + Sum[If[GCD[p, m] > 1 && Mod[p, m] == n, 1/p^s, 0], {p, 1, m}];
    m = 2; sump = 0; difp = 1; While[Abs[difp] > 10^(-digits - 5) || difp == 0, difp = coefs[[m]]*P[4, 3, m]; sump = sump + difp; m++];
    RealDigits[Chop[N[2*Catalan^2/3 * Exp[sump], digits]], 10, digits - 1][[1]] (* Vaclav Kotesovec, Jan 16 2021 *)

Formula

beta = (G^2/3)*A248930, where G is Catalan's constant A006752.

Extensions

More digits from Vaclav Kotesovec, Jun 27 2020

A016826 a(n) = (4n + 2)^2.

Original entry on oeis.org

4, 36, 100, 196, 324, 484, 676, 900, 1156, 1444, 1764, 2116, 2500, 2916, 3364, 3844, 4356, 4900, 5476, 6084, 6724, 7396, 8100, 8836, 9604, 10404, 11236, 12100, 12996, 13924, 14884, 15876, 16900, 17956
Offset: 0

Views

Author

Keywords

Comments

A bisection of A016742. Sequence arises from reading the line from 4, in the direction 4, 36, ... in the square spiral whose vertices are the squares A000290. - Omar E. Pol, May 24 2008

Crossrefs

Programs

Formula

a(n) = a(n-1) + 32*n (with a(0)=4). - Vincenzo Librandi, Dec 15 2010
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3), with a(0)=4, a(1)=36, a(2)=100. - Harvey P. Dale, Nov 24 2011
G.f.: -((4*(x^2+6*x+1))/(x-1)^3). - Harvey P. Dale, Nov 24 2011
a(n) = A000290(A016825(n)). - Wesley Ivan Hurt, Feb 24 2014
From Amiram Eldar, Jun 28 2020: (Start)
Sum_{n>=0} 1/a(n) = Pi^2/32.
Sum_{n>=0} (-1)^n/a(n) = G/4, where G is the Catalan constant (A006752). (End)
From Amiram Eldar, Jan 29 2021: (Start)
Product_{n>=0} (1 + 1/a(n)) = cosh(Pi/4).
Product_{n>=0} (1 - 1/a(n)) = 1/sqrt(2) (A010503). (End)

A016838 a(n) = (4n + 3)^2.

Original entry on oeis.org

9, 49, 121, 225, 361, 529, 729, 961, 1225, 1521, 1849, 2209, 2601, 3025, 3481, 3969, 4489, 5041, 5625, 6241, 6889, 7569, 8281, 9025, 9801, 10609, 11449, 12321, 13225, 14161, 15129, 16129, 17161, 18225
Offset: 0

Views

Author

Keywords

Comments

If Y is a fixed 2-subset of a (4n+1)-set X then a(n-1) is the number of 3-subsets of X intersecting Y. - Milan Janjic, Oct 21 2007
A bisection of A016754. Sequence arises from reading the line from 9, in the direction 9, 49, ... in the square spiral whose vertices are the squares A000290. - Omar E. Pol, May 24 2008
Using (n,n+1) to generate a Pythagorean triangle with sides of lengths xJ. M. Bergot, Jul 17 2013

Crossrefs

Programs

Formula

Denominators of first differences Zeta[2,(4n-1)/4]-Zeta[2,(4(n+1)-1)/4]. - Artur Jasinski, Mar 03 2010
From George F. Johnson, Oct 03 2012: (Start)
G.f.: (9+22*x+x^2)/(1-x)^3.
a(n+1) = a(n) + 16 + 8*sqrt(a(n)).
a(n+1) = 2*a(n) - a(n-1) + 32 = 3*a(n) - 3*a(n-1) + a(n-2).
a(n-1)*a(n+1) = (a(n)-16)^2; a(n+1) - a(n-1) = 16*sqrt(a(n)).
a(n) = A016754(2*n+1) = (A004767(n))^2.
(End)
Sum_{n>=0} 1/a(n) = Pi^2/16 - G/2, where G is the Catalan constant (A006752). - Amiram Eldar, Jun 28 2020
Product_{n>=0} (1 - 1/a(n)) = Gamma(3/4)^2/sqrt(Pi) = A068465^2 * A087197. - Amiram Eldar, Feb 01 2021

A243381 Decimal expansion of Pi^2/(16*K^2*G) = Product_{p prime congruent to 3 modulo 4} (1 + 1/p^2), where K is the Landau-Ramanujan constant and G Catalan's constant.

Original entry on oeis.org

1, 1, 5, 3, 0, 8, 0, 5, 6, 1, 5, 8, 5, 4, 4, 7, 8, 7, 0, 3, 6, 5, 2, 5, 8, 0, 6, 8, 5, 6, 1, 7, 6, 3, 3, 6, 5, 1, 0, 4, 8, 4, 4, 8, 7, 0, 8, 0, 3, 9, 3, 1, 8, 8, 6, 7, 7, 9, 2, 3, 1, 9, 0, 2, 1, 0, 3, 5, 4, 6, 8, 4, 1, 3, 2, 5, 2, 9, 8, 2, 0, 0, 4, 3, 5, 4, 9, 2, 5, 3, 5, 9, 2, 8, 1, 2, 0, 7, 8, 1, 2
Offset: 1

Views

Author

Jean-François Alcover, Jun 04 2014

Keywords

Examples

			1.1530805615854478703652580685617633651...
		

References

  • Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, Section 2.3 Landau-Ramanujan constant, p. 101.

Crossrefs

Programs

  • Mathematica
    digits = 101; LandauRamanujanK = 1/Sqrt[2]*NProduct[((1 - 2^(-2^n))*Zeta[2^n]/DirichletBeta[2^n])^(1/2^(n + 1)), {n, 1, 24}, WorkingPrecision -> digits + 5]; Pi^2/(16*LandauRamanujanK^2*Catalan) // RealDigits[#, 10, digits] & // First (* updated Mar 14 2018 *)

Formula

Equals Pi^2/(16*K^2*G), where K is the Landau-Ramanujan constant (A064533) and G Catalan's constant (A006752).
A243380 * A243381 = 12/Pi^2. - Vaclav Kotesovec, Apr 30 2020

A245058 Decimal expansion of the real part of Li_2(I), negated.

Original entry on oeis.org

2, 0, 5, 6, 1, 6, 7, 5, 8, 3, 5, 6, 0, 2, 8, 3, 0, 4, 5, 5, 9, 0, 5, 1, 8, 9, 5, 8, 3, 0, 7, 5, 3, 1, 4, 8, 6, 5, 2, 3, 6, 8, 7, 3, 7, 6, 5, 0, 8, 4, 9, 8, 0, 4, 7, 1, 6, 9, 4, 4, 7, 7, 8, 6, 7, 1, 2, 5, 0, 9, 3, 3, 8, 0, 0, 4, 0, 0, 1, 0, 9, 2, 2, 9, 2, 0, 3, 6, 1, 2, 5, 7, 7, 4, 6, 9, 8, 3, 8, 1, 6, 3, 0, 0, 0
Offset: 0

Views

Author

Robert G. Wilson v, Aug 21 2014

Keywords

Comments

This is the decimal expansion of the real part of the dilogarithm of the square root of -1. The imaginary part is Catalan's number (A006752).
5*Pi^2/24 = 10 * (this constant) equals the asymptotic mean of the abundancy index of the even numbers. - Amiram Eldar, May 12 2023

Examples

			0.2056167583560283045590518958307531486523687376508498047169447786712509338004...
		

Crossrefs

Programs

  • Magma
    SetDefaultRealField(RealField(100)); R:=RealField(); Pi(R)^2/48; // G. C. Greubel, Aug 25 2018
  • Mathematica
    RealDigits[ Re[ PolyLog[2, I]], 10, 111][[1]] (* or *) RealDigits[ Zeta[2]/8, 10, 111][[1]] (* or *) RealDigits[ Pi^2/48, 10, 111][[1]]
  • PARI
    zeta(2)/8 \\ Charles R Greathouse IV, Aug 27 2014
    
  • Sage
    (pi**2/48).n(200) # F. Chapoton, Mar 16 2020
    

Formula

Also equals -zeta(2)/8 = -Pi^2/48.
Also equals the Bessel moment Integral_{0..inf} x I_1(x) K_0(x)^2 K_1(x) dx. - Jean-François Alcover, Jun 05 2016
From Terry D. Grant, Sep 11 2016: (Start)
Equals Sum_{n>=0} (-1)^n/(2n+2)^2.
Equals (Sum_{n>=1} 1/(2n)^2)/2 = A222171/2. (End)
Equals Sum_{k>=1} A007949(k)/k^2. - Amiram Eldar, Jul 13 2020
Equals a tenth of integral_0^{pi/2} arccos[cos x/(1+2 cos x)]dx [Nahin]. - R. J. Mathar, May 22 2024
Equals Integral_{x>=0} x/(exp(2*x) + 1) dx. - Kritsada Moomuang, May 29 2025

A087784 Number of solutions to x^2 + y^2 + z^2 = 1 mod n.

Original entry on oeis.org

1, 4, 6, 24, 30, 24, 42, 96, 54, 120, 110, 144, 182, 168, 180, 384, 306, 216, 342, 720, 252, 440, 506, 576, 750, 728, 486, 1008, 870, 720, 930, 1536, 660, 1224, 1260, 1296, 1406, 1368, 1092, 2880, 1722, 1008, 1806, 2640, 1620, 2024, 2162, 2304, 2058, 3000
Offset: 1

Views

Author

Yuval Dekel (dekelyuval(AT)hotmail.com), Oct 06 2003

Keywords

Crossrefs

Programs

  • Mathematica
    Table[With[{f = FactorInteger[n][[All, 1]]}, Apply[Times, Map[1 + 1/# &, Select[f, Mod[#, 4] == 1 &]]] Apply[Times, Map[1 - 1/# &, Select[f, Mod[#, 4] == 3 &]]] (1 + Boole[Divisible[n, 4]]/2) n^2] - Boole[n == 1], {n, 50}] (* Michael De Vlieger, Feb 15 2018 *)
  • PARI
    a(n) = {my(f=factor(n)); if ((n % 4), 1, 3/2)*n^2*prod(k=1, #f~, p = f[k,1]; m = p % 4; if (m==1, 1+1/p, if (m==3, 1-1/p, 1)));} \\ Michel Marcus, Feb 14 2018

Formula

a(n) = n^2 * (3/2 if 4|n) * Product_{primes p == 1 mod 4 dividing n} (1+1/p) * Product_{primes p == 3 mod 4 dividing n} (1-1/p). - Bjorn Poonen, Dec 09 2003
Sum_{k=1..n} a(k) ~ c * n^3 + O(n^2 * log(n)), where c = 36*G/Pi^4 = 0.338518..., where G is Catalan's constant (A006752) (Tóth, 2014). - Amiram Eldar, Oct 18 2022

Extensions

More terms from David Wasserman, Jun 17 2005

A175570 Decimal expansion of the Dirichlet beta function of 6.

Original entry on oeis.org

9, 9, 8, 6, 8, 5, 2, 2, 2, 2, 1, 8, 4, 3, 8, 1, 3, 5, 4, 4, 1, 6, 0, 0, 7, 8, 7, 8, 6, 0, 2, 0, 6, 5, 4, 9, 6, 7, 8, 3, 6, 4, 5, 4, 6, 1, 2, 6, 5, 1, 4, 4, 1, 1, 4, 0, 4, 1, 2, 6, 4, 5, 1, 2, 2, 9, 7, 1, 2, 7, 5, 2, 5, 5, 9, 0, 3, 1, 0, 8, 9, 4, 5, 5, 4, 8, 2, 1, 8, 4, 5, 3, 8, 6, 2, 9, 7, 9, 7, 8, 4, 0, 7, 8, 2
Offset: 0

Views

Author

R. J. Mathar, Jul 15 2010

Keywords

Examples

			0.998685222218438135441600...
		

References

  • L. B. W. Jolley, Summation of Series, Dover, 1961, eq. 308.

Crossrefs

Cf. A003881 (beta(1)=Pi/4), A006752 (beta(2)=Catalan), A153071 (beta(3)), A175572 (beta(4)), A175571 (beta(5)), A258814 (beta(7)), A258815 (beta(8)), A258816 (beta(9)).
Cf. A101455.

Programs

  • Maple
    DirichletBeta := proc(s) 4^(-s)*(Zeta(0,s,1/4)-Zeta(0,s,3/4)) ; end proc: x := DirichletBeta(6) ; x := evalf(x) ;
  • Mathematica
    RealDigits[ DirichletBeta[6], 10, 105] // First (* Jean-François Alcover, Feb 11 2013, updated Mar 14 2018 *)
  • PARI
    beta(x)=(zetahurwitz(x,1/4)-zetahurwitz(x,3/4))/4^x
    beta(6) \\ Charles R Greathouse IV, Jan 31 2018
    
  • PARI
    sumpos(n=1,(12288*n^5 - 30720*n^4 + 33280*n^3 - 19200*n^2 + 5808*n - 728)/(16777216*n^12 - 100663296*n^11 + 270532608*n^10 - 429916160*n^9 + 449249280*n^8 - 324796416*n^7 + 166445056*n^6 - 60899328*n^5 + 15793920*n^4 - 2833920*n^3 + 334368*n^2 - 23328*n + 729),1) \\ Charles R Greathouse IV, Feb 01 2018

Formula

Equals Sum_{n>=1} A101455(n)/n^6. [see arxiv:1008.2547, L(m=4,r=2,s=6)] [corrected by R. J. Mathar, Feb 01 2018]
Equals (PolyGamma(5, 1/4) - PolyGamma(5, 3/4))/491520. - Jean-François Alcover, Jun 11 2015
Equals Product_{p prime >= 3} (1 - (-1)^((p-1)/2)/p^6)^(-1). - Amiram Eldar, Nov 06 2023

A014538 Continued fraction for Catalan's constant 1 - 1/9 + 1/25 - 1/49 + 1/81 - ...

Original entry on oeis.org

0, 1, 10, 1, 8, 1, 88, 4, 1, 1, 7, 22, 1, 2, 3, 26, 1, 11, 1, 10, 1, 9, 3, 1, 1, 1, 1, 1, 1, 2, 2, 1, 11, 1, 1, 1, 6, 1, 12, 1, 4, 7, 1, 1, 2, 5, 1, 5, 9, 1, 1, 1, 1, 33, 4, 1, 1, 3, 5, 3, 2, 1, 2, 1, 2, 1, 7, 6, 3, 1, 3, 3, 1, 1, 2, 1, 14, 1, 4, 4, 1, 2, 4, 1, 17, 4, 1, 14, 1, 1, 1, 12, 1
Offset: 0

Views

Author

Keywords

Comments

First 4,851,389,025 terms computed by Eric W. Weisstein, Aug 07 2013.

Examples

			C = 0.91596559417721901505... = 0 + 1/(1 + 1/(10 + 1/(1 + 1/(8 + ...))))
		

Crossrefs

Cf. A006752 (decimal expansion of Catalan's constant).
Cf. A099789 (high water marks), A099790 (positions of high water marks).

Programs

  • Magma
    R:= RealField(100); ContinuedFraction(Catalan(R)); // G. C. Greubel, Aug 23 2018
  • Mathematica
    ContinuedFraction[Catalan, 100] (* G. C. Greubel, Aug 23 2018 *)
  • PARI
    default(realprecision, 100); contfrac(Catalan) \\ G. C. Greubel, Aug 23 2018
    
Previous Showing 41-50 of 245 results. Next