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 11-20 of 33 results. Next

A266271 Decimal expansion of zeta'(-16) (the derivative of Riemann's zeta function at -16).

Original entry on oeis.org

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

Views

Author

G. C. Greubel, Dec 25 2015

Keywords

Examples

			1.7730256608990963962477873441892944813554198276469991771639173077.....
		

Crossrefs

Cf. A075700 (zeta'(0)), A084448 (zeta'(-1)), A240966 (zeta'(-2)), A259068 (zeta'(-3)), A259069 (zeta'(-4)), A259070 (zeta'(-5)), A259071 (zeta'(-6)), A259072 (zeta'(-7)), A259073 (zeta'(-8)), A266260 (zeta'(-9)), A266261 (zeta'(-10)), A266262 (zeta'(-11)), A266263 (zeta'(-12)), A260660 (zeta'(-13)), A266264 (zeta'(-14)), A266270 (zeta'(-15)), A266272 (zeta'(-17)), A266273 (zeta'(-18)), A266274 (zeta'(-19)), A266275 (zeta'(-20)).

Programs

  • Mathematica
    RealDigits[N[Zeta'[-16], 100]]

Formula

zeta'(-16) = (638512875*zeta(17))/(4*Pi^16) = - log(A(16)).
Equals (3617/2040)*(zeta(17)/zeta(16)).

Extensions

Offset corrected by Rick L. Shepherd, May 21 2016

A266273 Decimal expansion of zeta'(-18) (the derivative of Riemann's zeta function at -18) (negated).

Original entry on oeis.org

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

Views

Author

G. C. Greubel, Dec 25 2015

Keywords

Examples

			-13.74276825021405443522056419051855107309537215770498560....
		

Crossrefs

Cf. A075700 (zeta'(0)), A084448 (zeta'(-1)), A240966 (zeta'(-2)), A259068 (zeta'(-3)), A259069 (zeta'(-4)), A259070 (zeta'(-5)), A259071 (zeta'(-6)), A259072 (zeta'(-7)), A259073 (zeta'(-8)), A266260 (zeta'(-9)), A266261 (zeta'(-10)), A266262 (zeta'(-11)), A266263 (zeta'(-12)), A260660 (zeta'(-13)), A266264 (zeta'(-14)), A266270 (zeta'(-15)), A266271 (zeta'(-16)), A266272 (zeta'(-17)), A266274 (zeta'(-19)), A266275 (zeta'(-20)).

Programs

  • Mathematica
    RealDigits[N[Zeta'[-18], 100]]

Formula

zeta'(-18) = -(97692469875*zeta(19))/(8*Pi^18) = - log(A(18)).
Equals -(43867/3192)*(zeta(19)/zeta(18)).

Extensions

Offset corrected by Rick L. Shepherd, May 30 2016

A266274 Decimal expansion of zeta'(-19) (the derivative of Riemann's zeta function at -19) (negated).

Original entry on oeis.org

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

Views

Author

G. C. Greubel, Dec 26 2015

Keywords

Examples

			-29.965529831392351939431865297274201791908226109115565915881....
		

Crossrefs

Cf. A075700 (zeta'(0)), A084448 (zeta'(-1)), A240966 (zeta'(-2)), A259068 (zeta'(-3)), A259069 (zeta'(-4)), A259070 (zeta'(-5)), A259071 (zeta'(-6)), A259072 (zeta'(-7)), A259073 (zeta'(-8)), A266260 (zeta'(-9)), A266261 (zeta'(-10)), A266262 (zeta'(-11)), A266263 (zeta'(-12)), A260660 (zeta'(-13)), A266264 (zeta'(-14)), A266270 (zeta'(-15)), A266271 (zeta'(-16)), A266272 (zeta'(-17)), A266273 (zeta'(-18)), A266275 (zeta'(-20)).

Programs

  • Mathematica
    RealDigits[N[Zeta'[-19], 100]]

Formula

zeta'(-n) = (BernoulliB(n+1)*HarmonicNumber(n))/(n+1) - log(A(n)), where A(n) is the n-th Bendersky constant.
zeta'(-19) = -48069674759189/512143632000 - log(A(19)).

Extensions

Offset corrected by Rick L. Shepherd, May 30 2016

A266275 Decimal expansion of zeta'(-20) (the derivative of Riemann's zeta function at -20).

Original entry on oeis.org

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

Views

Author

G. C. Greubel, Dec 26 2015

Keywords

Examples

			132.28099750421251452709821158578551868064800999955031458847450192414...
		

Crossrefs

Cf. A075700 (zeta'(0)), A084448 (zeta'(-1)), A240966 (zeta'(-2)), A259068 (zeta'(-3)), A259069 (zeta'(-4)), A259070 (zeta'(-5)), A259071 (zeta'(-6)), A259072 (zeta'(-7)), A259073 (zeta'(-8)), A266260 (zeta'(-9)), A266261 (zeta'(-10)), A266262 (zeta'(-11)), A266263 (zeta'(-12)), A260660 (zeta'(-13)), A266264 (zeta'(-14)), A266270 (zeta'(-15)), A266271 (zeta'(-16)), A266272 (zeta'(-17)), A266273 (zeta'(-18)), A266274 (zeta'(-19)).

Programs

  • Mathematica
    RealDigits[N[Zeta'[-20], 100]]

Formula

zeta'(-20) = (9280784638125*zeta(21))/(8*Pi^20) = - log(A(20)).
Equals (174611/1320)*(zeta(21)/zeta(20)).

Extensions

Offset corrected by Rick L. Shepherd, May 30 2016

A261506 Decimal expansion of -zeta'(4).

Original entry on oeis.org

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

Views

Author

Vaclav Kotesovec, Aug 22 2015

Keywords

Examples

			0.06891126589612537984882936558744082715001637487137...
		

Crossrefs

Cf. A075700 (0), A073002 (2), A244115 (3).
Cf. A084448 (-1), A240966 (-2), A259068 (-3), A259069 (-4), A259070 (-5), A259071 (-6), A259072 (-7), A259073 (-8).

Programs

  • Mathematica
    Flatten[{0, RealDigits[-Zeta'[4], 10, 105][[1]]}]

Formula

Sum_{n>=1} log(n) / n^4.

A263030 Decimal expansion of a constant related to A262876 and A262946 (negated).

Original entry on oeis.org

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

Views

Author

Vaclav Kotesovec, Oct 08 2015

Keywords

Examples

			-0.18870819197952853237641009864920797359211446726842922150941743378232...
		

Crossrefs

Programs

  • Mathematica
    NIntegrate[1/x*(Exp[-2*x]/(1 - Exp[-3*x])^2 - 1/(9*x^2) - 1/(9*x) + Exp[-x]/36), {x, 0, Infinity}, WorkingPrecision -> 120, MaxRecursion -> 100, PrecisionGoal -> 110]

Formula

Integral_{x=0..infinity} 1/x*(exp(-2*x)/(1 - exp(-3*x))^2 - 1/(9*x^2) - 1/(9*x) + exp(-x)/36) dx.
exp(3*(A263030+A263031)) = A^2 * Gamma(1/3) / (3^(11/12) * exp(1/6) * sqrt(2*Pi)), where A = A074962 is the Glaisher-Kinkelin constant.

A263031 Decimal expansion of a constant related to A262877 and A262947 (negated).

Original entry on oeis.org

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

Views

Author

Vaclav Kotesovec, Oct 08 2015

Keywords

Examples

			-0.01453742918328403360502029450226209036054149759346444138152247405534...
		

Crossrefs

Programs

  • Mathematica
    NIntegrate[1/x*(Exp[-x]/(1 - Exp[-3*x])^2 - 1/(9*x^2) - 2/(9*x) - 5*Exp[-x]/36), {x, 0, Infinity}, WorkingPrecision -> 120, MaxRecursion -> 100, PrecisionGoal -> 110]

Formula

Integral_{x=0..infinity} 1/x*(exp(-x)/(1 - exp(-3*x))^2 - 1/(9*x^2) - 2/(9*x) - 5*exp(-x)/36) dx.
exp(3*(A263030+A263031)) = A^2 * Gamma(1/3) / (3^(11/12) * exp(1/6) * sqrt(2*Pi)), where A = A074962 is the Glaisher-Kinkelin constant.

A263358 Expansion of Product_{k>=1} 1/(1-x^(k+2))^k.

Original entry on oeis.org

1, 0, 0, 1, 2, 3, 5, 7, 12, 18, 29, 43, 69, 101, 155, 231, 347, 509, 759, 1106, 1626, 2359, 3428, 4938, 7127, 10194, 14587, 20756, 29498, 41716, 58932, 82888, 116413, 162924, 227602, 316988, 440696, 610953, 845469, 1167118, 1608178, 2210888, 3034124, 4155111
Offset: 0

Views

Author

Vaclav Kotesovec, Oct 16 2015

Keywords

Comments

In general, if v>=0 and g.f. = Product_{k>=1} 1/(1-x^(k+v))^k, then a(n) ~ d1(v) * n^(v^2/6 - 25/36) * exp(-Pi^4 * v^2 / (432*Zeta(3)) + 3*Zeta(3)^(1/3) * n^(2/3)/2^(2/3) - v * Pi^2 * n^(1/3) / (3 * 2^(4/3) * Zeta(3)^(1/3))) / (sqrt(3*Pi) * 2^(v^2/6 + 11/36) * Zeta(3)^(v^2/6 - 7/36)), where Zeta(3) = A002117.
d1(v) = exp(Integral_{x=0..infinity} (1/(x*exp((v-1)*x) * (exp(x)-1)^2) - (6*v^2-1) / (12*x*exp(x)) + v/x^2 - 1/x^3) dx).
d1(v) = (exp(Zeta'(-1) - v*Zeta'(0))) / Product_{j=0..v-1} j!, where Zeta'(0) = -A075700, Zeta'(-1) = A084448 and Product_{j=0..v-1} j! = A000178(v-1).
d1(v) = exp(1/12) * (2*Pi)^(v/2) / (A * G(v+1)), where A = A074962 is the Glaisher-Kinkelin constant and G is the Barnes G-function.

Crossrefs

Programs

  • Maple
    with(numtheory):
    a:= proc(n) option remember; `if`(n=0, 1, add(add(d*
          max(0, d-2), d=divisors(j))*a(n-j), j=1..n)/n)
        end:
    seq(a(n), n=0..50);  # Alois P. Heinz, Oct 16 2015
  • Mathematica
    nmax = 50; CoefficientList[Series[Product[1/(1-x^(k+2))^k, {k, 1, nmax}], {x, 0, nmax}], x]
    nmax = 50; CoefficientList[Series[E^Sum[x^(3*k)/(k*(1-x^k)^2), {k, 1, nmax}], {x, 0, nmax}], x]

Formula

G.f.: exp(Sum_{k>=1} x^(3*k)/(k*(1-x^k)^2)).
a(n) ~ exp(1/12 - Pi^4/(108*Zeta(3)) - Pi^2 * n^(1/3) / (3 * 2^(1/3) * Zeta(3)^(1/3)) + 3 * 2^(-2/3) * Zeta(3)^(1/3) * n^(2/3)) * 2^(1/36) * sqrt(Pi) / (A * sqrt(3) * Zeta(3)^(17/36) * n^(1/36)), where Zeta(3) = A002117 and A = A074962 is the Glaisher-Kinkelin constant.

A263364 Expansion of Product_{k>=1} 1/(1-x^(k+8))^k.

Original entry on oeis.org

1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 13, 18, 23, 33, 43, 60, 77, 103, 130, 168, 209, 267, 331, 420, 526, 667, 839, 1069, 1347, 1711, 2160, 2733, 3437, 4336, 5435, 6828, 8543, 10699, 13357, 16703, 20820, 25986, 32362, 40327, 50152, 62407
Offset: 0

Views

Author

Vaclav Kotesovec, Oct 16 2015

Keywords

Comments

In general, if v>=0 and g.f. = Product_{k>=1} 1/(1-x^(k+v))^k, then a(n) ~ d1(v) * n^(v^2/6 - 25/36) * exp(-Pi^4 * v^2 / (432*Zeta(3)) + 3*Zeta(3)^(1/3) * n^(2/3)/2^(2/3) - v * Pi^2 * n^(1/3) / (3 * 2^(4/3) * Zeta(3)^(1/3))) / (sqrt(3*Pi) * 2^(v^2/6 + 11/36) * Zeta(3)^(v^2/6 - 7/36)), where Zeta(3) = A002117.
d1(v) = exp(Integral_{x=0..infinity} (1/(x*exp((v-1)*x) * (exp(x)-1)^2) - (6*v^2-1) / (12*x*exp(x)) + v/x^2 - 1/x^3) dx).
d1(v) = (exp(Zeta'(-1) - v*Zeta'(0))) / Product_{j=0..v-1} j!, where Zeta'(0) = -A075700, Zeta'(-1) = A084448 and Product_{j=0..v-1} j! = A000178(v-1).
d1(v) = exp(1/12) * (2*Pi)^(v/2) / (A * G(v+1)), where A = A074962 is the Glaisher-Kinkelin constant and G is the Barnes G-function.

Crossrefs

Cf. A000219 (v=0), A052847 (v=1), A263358 (v=2), A263359 (v=3), A263360 (v=4), A263361 (v=5), A263362 (v=6), A263363 (v=7).

Programs

  • Maple
    with(numtheory):
    a:= proc(n) option remember; `if`(n=0, 1, add(add(d*
          max(0, d-8), d=divisors(j))*a(n-j), j=1..n)/n)
        end:
    seq(a(n), n=0..60);  # Alois P. Heinz, Oct 16 2015
  • Mathematica
    nmax = 60; CoefficientList[Series[Product[1/(1-x^(k+8))^k, {k, 1, nmax}], {x, 0, nmax}], x]
    nmax = 60; CoefficientList[Series[E^Sum[x^(9*k)/(k*(1-x^k)^2), {k, 1, nmax}], {x, 0, nmax}], x]

Formula

G.f.: exp(Sum_{k>=1} x^(9*k)/(k*(1-x^k)^2)).
a(n) ~ exp(1/12 - 4*Pi^4/(27*Zeta(3)) - 2^(5/3) * Pi^2 * n^(1/3) / (3 * Zeta(3)^(1/3)) + 3 * 2^(-2/3) * Zeta(3)^(1/3) * n^(2/3)) * n^(359/36) * Pi^(7/2) / (8026324992000 * A * 2^(35/36) * sqrt(3) * Zeta(3)^(377/36)), where Zeta(3) = A002117 and A = A074962 is the Glaisher-Kinkelin constant.

A110544 Decimal expansion of -Integral {x=1..2} log gamma(x) dx.

Original entry on oeis.org

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

Views

Author

Robert G. Wilson v, Jul 25 2005

Keywords

Examples

			0.081061466795327258219670263594382360138602526362216587182848459...
		

References

  • Steven R. Finch, Mathematical Constants, Encyclopedia of Mathematics and its Applications, vol. 94, Cambridge University Press, 2003, Section 2.21, p. 168.

Crossrefs

Programs

  • Mathematica
    RealDigits[ N[ -Integrate[ Log[ Gamma[ x]], {x, 1, 2}], 128], 10, 128]
    RealDigits[ 1/2*Log[2*Pi]-1, 10, 105] // First // Prepend[#, 0]& (* Jean-François Alcover, Jun 10 2013 *)
  • PARI
    -intnum(x=1, 2, log(gamma(x))) \\ Michel Marcus, Jul 05 2020

Formula

Equals zeta'(0)+1 = -1/2*log(2*Pi)+1. - Jean-François Alcover, Jun 10 2013
From Amiram Eldar, Jul 05 2020: (Start)
Equals Sum_{k>=2} (1/(k + 1) - 1/(2*k))*(zeta(k)-1).
Equals Integral_{x=0..1} (1/2 - 1/(1 - x) - 1/log(x)) dx/log(x). (End)
Equals -Integral_{x=1..oo} ({x}-1/2)/x dx, where {.} is the fractional part [Nahin]. - R. J. Mathar, May 16 2024
Equals 1 - A075700 = log(A229495). - Hugo Pfoertner, Sep 05 2024
Equals log(2) - (gamma+1)/2 - Sum_{k>=2} (-1)^k*(zeta(k)-1)/(k+1), where gamma is Euler's constant (A001620) (Jakimczuk, 2025). - Amiram Eldar, May 30 2025
Previous Showing 11-20 of 33 results. Next