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 255 results. Next

A266556 Decimal expansion of the generalized Glaisher-Kinkelin constant A(9).

Original entry on oeis.org

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

Views

Author

G. C. Greubel, Dec 31 2015

Keywords

Comments

Also known as the 9th Bendersky constant.

Examples

			1.018469929920992912170659049376672172308610190564074920380...
		

Crossrefs

Cf. A019727 (A(0)), A074962 (A(1)), A243262 (A(2)), A243263 (A(3)), A243264 (A(4)), A243265 (A(5)), A266553 (A(6)), A266554 (A(7)), A266555 (A(8)), A266556 (A(9)), A266557 (A(10)), A266558 (A(11)), A266559 (A(12)), A260662 (A(13)), A266560 (A(14)), A266562 (A(15)), A266563 (A(16)), A266564 (A(17)), A266565 (A(18)), A266566 (A(19)), A266567 (A(20)).

Programs

  • Mathematica
    Exp[N[(BernoulliB[10]/10)*(EulerGamma + Log[2*Pi] - Zeta'[10]/Zeta[10]), 200]]

Formula

A(k) = exp(H(k)*B(k+1)/(k+1) - zeta'(-k)), where B(k) is the k-th Bernoulli number, H(k) the k-th harmonic number, and zeta'(x) is the derivative of the Riemann zeta function.
A(9) = exp(H(9)*B(10)/10 - zeta'(-9)) = exp((B(10)/10)*(EulerGamma + log(2*Pi) - (zeta'(10)/zeta(10)))).
Equals (2*Pi*exp(gamma) * Product_{p prime} p^(1/(p^10-1)))^c, where gamma is Euler's constant (A001620), and c = Bernoulli(10)/10 = 1/132 (Van Gorder, 2012). - Amiram Eldar, Feb 08 2024

A266558 Decimal expansion of the generalized Glaisher-Kinkelin constant A(11).

Original entry on oeis.org

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

Views

Author

G. C. Greubel, Dec 31 2015

Keywords

Comments

Also known as the 11th Bendersky constant.

Examples

			0.950331248453288866514233841015331271597566403456173040861088881...
		

Crossrefs

Cf. A019727 (A(0)), A074962 (A(1)), A243262 (A(2)), A243263 (A(3)), A243264 (A(4)), A243265 (A(5)), A266553 (A(6)), A266554 (A(7)), A266555 (A(8)), A266556 (A(9)), A266557 (A(10)), A266559 (A(12)), A260662 (A(13)), A266560 (A(14)), A266562 (A(15)), A266563 (A(16)), A266564 (A(17)), A266565 (A(18)), A266566 (A(19)), A266567 (A(20)).

Programs

  • Mathematica
    Exp[N[(BernoulliB[12]/12)*(EulerGamma + Log[2*Pi] - Zeta'[12]/Zeta[12]), 200]]

Formula

A(k) = exp(H(k)*B(k+1)/(k+1) - zeta'(-k)), where B(k) is the k-th Bernoulli number, H(k) the k-th harmonic number, and zeta'(x) is the derivative of the Riemann zeta function.
A(11) = exp(H(11)*B(12)/12 - zeta'(-11)) = exp((B(12)/12)*(EulerGamma + log(2*Pi) - (zeta'(12)/zeta(12)))).
Equals (2*Pi*exp(gamma) * Product_{p prime} p^(1/(p^12-1)))^c, where gamma is Euler's constant (A001620), and c = Bernoulli(12)/12 = -691/32760 (Van Gorder, 2012). - Amiram Eldar, Feb 08 2024

A266562 Decimal expansion of the generalized Glaisher-Kinkelin constant A(15).

Original entry on oeis.org

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

Views

Author

G. C. Greubel, Dec 31 2015

Keywords

Comments

Also known as the 15th Bendersky constant.

Examples

			0.342830806132816736571711146340672378141726945483236877251076164....
		

Crossrefs

Cf. A019727 (A(0)), A074962 (A(1)), A243262 (A(2)), A243263 (A(3)), A243264 (A(4)), A243265 (A(5)), A266553 (A(6)), A266554 (A(7)), A266555 (A(8)), A266556 (A(9)), A266557 (A(10)), A266558 (A(11)), A266559 (A(12)), A260662 (A(13)), A266560 (A(14)), A266563 (A(16)), A266564 (A(17)), A266565 (A(18)), A266566 (A(19)), A266567 (A(20)).

Programs

  • Mathematica
    Exp[N[(BernoulliB[16]/16)*(EulerGamma + Log[2*Pi] - Zeta'[16]/Zeta[16]), 200]]

Formula

A(k) = exp(H(k)*B(k+1)/(k+1) - zeta'(-k)), where B(k) is the k-th Bernoulli number, H(k) the k-th harmonic number, and zeta'(x) is the derivative of the Riemann zeta function.
A(15) = exp(H(15)*B(16)/16 - zeta'(-15)) = exp((B(16)/16)*(EulerGamma + log(2*Pi) - zeta'(16)/zeta(16))).
Equals (2*Pi*exp(gamma) * Product_{p prime} p^(1/(p^16-1)))^c, where gamma is Euler's constant (A001620), and c = Bernoulli(16)/16 = -3617/8160 (Van Gorder, 2012). - Amiram Eldar, Feb 08 2024

A266564 Decimal expansion of the generalized Glaisher-Kinkelin constant A(17).

Original entry on oeis.org

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

Views

Author

G. C. Greubel, Dec 31 2015

Keywords

Comments

Also known as the 17th Bendersky constant.

Examples

			1596.53508575803855385145523662044194533166110061350444341....
		

Crossrefs

Cf. A019727 (A(0)), A074962 (A(1)), A243262 (A(2)), A243263 (A(3)), A243264 (A(4)), A243265 (A(5)), A266553 (A(6)), A266554 (A(7)), A266555 (A(8)), A266556 (A(9)), A266557 (A(10)), A266558 (A(11)), A266559 (A(12)), A260662 (A(13)), A266560 (A(14)), A266562 (A(15)), A266563 (A(16)), A266565 (A(18)), A266566 (A(19)), A266567 (A(20)).

Programs

  • Mathematica
    Exp[N[(BernoulliB[18]/18)*(EulerGamma + Log[2*Pi] - Zeta'[18]/Zeta[18]), 200]]

Formula

A(k) = exp(H(k)*B(k+1)/(k+1) - zeta'(-k)), where B(k) is the k-th Bernoulli number, H(k) the k-th harmonic number, and zeta'(x) is the derivative of the Riemann zeta function.
A(17) = exp(H(17)*B(18)/18 - zeta'(-17)) = exp((B(18)/18)*(EulerGamma + log(2*Pi) - zeta'(18)/zeta(18))).
Equals (2*Pi*exp(gamma) * Product_{p prime} p^(1/(p^18-1)))^c, where gamma is Euler's constant (A001620), and c = Bernoulli(18)/18 = 43867/14364 (Van Gorder, 2012). - Amiram Eldar, Feb 08 2024

A046970 Dirichlet inverse of the Jordan function J_2 (A007434).

Original entry on oeis.org

1, -3, -8, -3, -24, 24, -48, -3, -8, 72, -120, 24, -168, 144, 192, -3, -288, 24, -360, 72, 384, 360, -528, 24, -24, 504, -8, 144, -840, -576, -960, -3, 960, 864, 1152, 24, -1368, 1080, 1344, 72, -1680, -1152, -1848, 360, 192, 1584, -2208, 24, -48, 72, 2304, 504, -2808, 24, 2880, 144, 2880, 2520, -3480, -576
Offset: 1

Views

Author

Douglas Stoll, dougstoll(AT)email.msn.com

Keywords

Comments

B(n+2) = -B(n)*((n+2)*(n+1)/(4*Pi^2))*z(n+2)/z(n) = -B(n)*((n+2)*(n+1)/(4*Pi^2)) * Sum_{j>=1} a(j)/j^(n+2).
Apart from signs also Sum_{d|n} core(d)^2*mu(n/d) where core(x) is the squarefree part of x. - Benoit Cloitre, May 31 2002

Examples

			a(3) = -8 because the divisors of 3 are {1, 3} and mu(1)*1^2 + mu(3)*3^2 = -8.
a(4) = -3 because the divisors of 4 are {1, 2, 4} and mu(1)*1^2 + mu(2)*2^2 + mu(4)*4^2 = -3.
E.g., a(15) = (3^2 - 1) * (5^2 - 1) = 8*24 = 192. - _Jon Perry_, Aug 24 2010
G.f. = x - 3*x^2 - 8*x^3 - 3*x^4 - 24*x^5 + 24*x^6 - 48*x^7 - 3*x^8 - 8*x^9 + ...
		

References

  • M. Abramowitz and I. A. Stegun, Handbook of Mathematical Functions, Dover Publications, 1965, pp. 805-811.
  • Tom M. Apostol, Introduction to Analytic Number Theory, Springer-Verlag, 1986, p. 48.

Crossrefs

Dirichlet inverse of Jordan totient function J_r(n): A023900 (r = 1), A063453(r = 3), A189922 (r = 4).

Programs

  • Haskell
    a046970 = product . map ((1 -) . (^ 2)) . a027748_row
    -- Reinhard Zumkeller, Jan 19 2012
    
  • Maple
    Jinvk := proc(n,k) local a,f,p ; a := 1 ; for f in ifactors(n)[2] do p := op(1,f) ; a := a*(1-p^k) ; end do: a ; end proc:
    A046970 := proc(n) Jinvk(n,2) ; end proc: # R. J. Mathar, Jul 04 2011
  • Mathematica
    muDD[d_] := MoebiusMu[d]*d^2; Table[Plus @@ muDD[Divisors[n]], {n, 60}] (Lopez)
    Flatten[Table[{ x = FactorInteger[n]; p = 1; For[i = 1, i <= Length[x], i++, p = p*(1 - x[[i]][[1]]^2)]; p}, {n, 1, 50, 1}]] (* Jon Perry, Aug 24 2010 *)
    a[ n_] := If[ n < 1, 0, Sum[ d^2 MoebiusMu[ d], {d, Divisors @ n}]]; (* Michael Somos, Jan 11 2014 *)
    a[ n_] := If[ n < 2, Boole[ n == 1], Times @@ (1 - #[[1]]^2 & /@ FactorInteger @ n)]; (* Michael Somos, Jan 11 2014 *)
  • PARI
    A046970(n)=sumdiv(n,d,d^2*moebius(d)) \\ Benoit Cloitre
    
  • PARI
    {a(n) = if( n<1, 0, direuler( p=2, n, (1 - X*p^2) / (1 - X))[n])}; /* Michael Somos, Jan 11 2014 */
    
  • Python
    from math import prod
    from sympy import primefactors
    def A046970(n): return prod(1-p**2 for p in primefactors(n)) # Chai Wah Wu, Sep 08 2023

Formula

Multiplicative with a(p^e) = 1 - p^2.
a(n) = Sum_{d|n} mu(d)*d^2.
abs(a(n)) = Product_{p prime divides n} (p^2 - 1). - Jon Perry, Aug 24 2010
From Wolfdieter Lang, Jun 16 2011: (Start)
Dirichlet g.f.: zeta(s)/zeta(s-2).
a(n) = J_{-2}(n)*n^2, with the Jordan function J_k(n), with J_k(1):=1. See the Apostol reference, p. 48. exercise 17. (End)
a(prime(n)) = -A084920(n). - R. J. Mathar, Aug 28 2011
G.f.: Sum_{k>=1} mu(k)*k^2*x^k/(1 - x^k). - Ilya Gutkovskiy, Jan 15 2017
a(n) = Sum_{d divides n} d * (sigma_1(d))^(-1) * sigma_1(n/d), where (sigma_1(n))^(-1) = A046692(n) denotes the Dirichlet inverse of sigma_1(n). - Peter Bala, Jan 26 2024
a(n) = A076479(n) * A322360(n). - Amiram Eldar, Feb 02 2024

Extensions

Corrected and extended by Vladeta Jovovic, Jul 25 2001
Additional comments from Wilfredo Lopez (chakotay147138274(AT)yahoo.com), Jul 01 2005

A051715 Denominators of table a(n,k) read by antidiagonals: a(0,k) = 1/(k+1), a(n+1,k) = (k+1)(a(n,k)-a(n,k+1)), n >= 0, k >= 0.

Original entry on oeis.org

1, 2, 2, 3, 3, 6, 4, 4, 6, 1, 5, 5, 20, 30, 30, 6, 6, 15, 20, 30, 1, 7, 7, 42, 35, 140, 42, 42, 8, 8, 28, 84, 105, 28, 42, 1, 9, 9, 72, 84, 1, 105, 140, 30, 30, 10, 10, 45, 120, 140, 28, 105, 20, 30, 1, 11, 11, 110, 495, 3960, 924, 231, 165, 220, 66, 66, 12, 12, 66, 55, 495, 264, 308, 132, 165, 44, 66, 1
Offset: 0

Views

Author

Keywords

Comments

Leading column gives the Bernoulli numbers A027641/A027642.

Examples

			Table begins:
    1    1/2   1/3    1/4   1/5  1/6  1/7 ...
   1/2   1/3   1/4    1/5   1/6  1/7 ...
   1/6   1/6   3/20   2/15  5/42 ...
    0    1/30  1/20   2/35  5/84 ...
  -1/30 -1/30 -3/140 -1/105 ...
		

Crossrefs

Numerators are in A051714.

Programs

  • Maple
    a:= proc(n,k) option remember;
          `if`(n=0, 1/(k+1), (k+1)*(a(n-1,k)-a(n-1,k+1)))
        end:
    seq(seq(denom(a(n, d-n)), n=0..d), d=0..12); # Alois P. Heinz, Apr 17 2013
  • Mathematica
    nmax = 12; a[0, k_] := 1/(k+1); a[n_, k_] := a[n, k] = (k+1)(a[n-1, k]-a[n-1, k+1]); Denominator[ Flatten[ Table[ a[n-k, k], {n, 0, nmax}, {k, n, 0, -1}]]](* Jean-François Alcover, Nov 28 2011 *)

Formula

a(n,k) = denominator(Sum_{j=0..n} (-1)^(n-j)*j!*Stirling2(n,j)/(j+k+1)). - Fabián Pereyra, Jan 14 2023

Extensions

More terms from James Sellers, Dec 08 1999

A266553 Decimal expansion of the generalized Glaisher-Kinkelin constant A(6).

Original entry on oeis.org

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

Views

Author

G. C. Greubel, Dec 31 2015

Keywords

Comments

Also known as the 6th Bendersky constant.

Examples

			1.00591719699867346844401398355425565639061565500693211400980...
		

Crossrefs

Cf. A019727 (A(0)), A074962 (A(1)), A243262 (A(2)), A243263 (A(3)), A243264 (A(4)), A243265 (A(5)), A266554 (A(7)), A266555 (A(8)), A266556 (A(9)), A266557 (A(10)), A266558 (A(11)), A266559 (A(12)), A260662 (A(13)), A266560 (A(14)), A266562 (A(15)), A266563 (A(16)), A266564 (A(17)), A266565 (A(18)), A266566 (A(19)), A266567 (A(20)).

Programs

  • Mathematica
    Exp[N[(BernoulliB[6]/4)*(Zeta[7]/Zeta[6]), 200]]

Formula

A(k) = exp(H(k)*B(k+1)/(k+1) - zeta'(-k)), where B(k) is the k-th Bernoulli number, H(k) the k-th harmonic number, and zeta'(x) is the derivative of the Riemann zeta function.
A(6) = exp(- zeta'(-6)) = exp((B(6)/4)*(zeta(7)/zeta(6))).
A(6) = exp(6! * Zeta(7) / (2^7 * Pi^6)). - Vaclav Kotesovec, Jan 01 2016

A266555 Decimal expansion of the generalized Glaisher-Kinkelin constant A(8).

Original entry on oeis.org

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

Views

Author

G. C. Greubel, Dec 31 2015

Keywords

Comments

Also known as the 8th Bendersky constant.

Examples

			0.99171832163282219699954748276579333986785976057305079247...
		

Crossrefs

Cf. A019727 (A(0)), A074962 (A(1)), A243262 (A(2)), A243263 (A(3)), A243264 (A(4)), A243265 (A(5)), A266553 (A(6)), A266554 (A(7)), A266556 (A(9)), A266557 (A(10)), A266558 (A(11)), A266559 (A(12)), A260662 (A(13)), A266560 (A(14)), A266562 (A(15)), A266563 (A(16)), A266564 (A(17)), A266565 (A(18)), A266566 (A(19)), A266567 (A(20)).

Programs

  • Mathematica
    Exp[N[(BernoulliB[8]/4)*(Zeta[9]/Zeta[8]), 200]]

Formula

A(k) = exp(H(k)*B(k+1)/(k+1) - zeta'(-k)), where B(k) is the k-th Bernoulli number, H(k) the k-th harmonic number, and zeta'(x) is the derivative of the Riemann zeta function.
A(8) = -zeta'(-8) = (B(8)/4)*(zeta(9)/zeta(8)).
A(8) = exp(-8! * Zeta(9) / (2^9 * Pi^8)). - Vaclav Kotesovec, Jan 01 2016

A266557 Decimal expansion of the generalized Glaisher-Kinkelin constant A(10).

Original entry on oeis.org

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

Views

Author

G. C. Greubel, Dec 31 2015

Keywords

Comments

Also known as the 10th Bendersky constant.

Examples

			1.01911023332938385372216470498629751351348137284099604...
		

Crossrefs

Cf. A019727 (A(0)), A074962 (A(1)), A243262 (A(2)), A243263 (A(3)), A243264 (A(4)), A243265 (A(5)), A266553 (A(6)), A266554 (A(7)), A266555 (A(8)), A266556 (A(9)), A266558 (A(11)), A266559 (A(12)), A260662 (A(13)), A266560 (A(14)), A266562 (A(15)), A266563 (A(16)), A266564 (A(17)), A266565 (A(18)), A266566 (A(19)), A266567 (A(20)).

Programs

  • Mathematica
    Exp[N[(BernoulliB[10]/4)*(Zeta[11]/Zeta[10]), 200]]

Formula

A(k) = exp(H(k)*B(k+1)/(k+1) - zeta'(-k)), where B(k) is the k-th Bernoulli number, H(k) the k-th harmonic number, and zeta'(x) is the derivative of the Riemann zeta function.
A(10) = exp(-zeta'(-10)) = exp((B(10)/4)*(zeta(11)/zeta(10))).
A(10) = exp(10! * Zeta(11) / (2^11 * Pi^10)). - Vaclav Kotesovec, Jan 01 2016

A266559 Decimal expansion of the generalized Glaisher-Kinkelin constant A(12).

Original entry on oeis.org

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

Views

Author

G. C. Greubel, Dec 31 2015

Keywords

Comments

Also known as the 12th Bendersky constant.

Examples

			0.9386894455960125851529657813206767183332587685218350098663907...
		

Crossrefs

Cf. A019727 (A(0)), A074962 (A(1)), A243262 (A(2)), A243263 (A(3)), A243264 (A(4)), A243265 (A(5)), A266553 (A(6)), A266554 (A(7)), A266555 (A(8)), A266556 (A(9)), A266557 (A(10)), A266558 (A(11)), A260662 (A(13)), A266560 (A(14)), A266562 (A(15)), A266563 (A(16)), A266564 (A(17)), A266565 (A(18)), A266566 (A(19)), A266567 (A(20)).

Programs

  • Mathematica
    RealDigits[Exp[N[(BernoulliB[12]/4)*(Zeta[13]/Zeta[12]),200]]][[1]] (* Program amended by Harvey P. Dale, Aug 16 2021 *)

Formula

A(k) = exp(H(k)*B(k+1)/(k+1) - zeta'(-k)), where B(k) is the k-th Bernoulli number, H(k) the k-th harmonic number, and zeta'(x) is the derivative of the Riemann zeta function.
A(12) = exp(-zeta'(-12)) = exp((B(12)/4)*(zeta(13)/zeta(12))).
A(12) = exp(-12! * Zeta(13) / (2^13 * Pi^12)). - Vaclav Kotesovec, Jan 01 2016
Previous Showing 41-50 of 255 results. Next