A302121 Denominators of a series converging to Euler's constant.
Examples
Denominators of 3/4, -11/96, -1/72, -311/46080, -5/1152, -7291/2322432, ...
Links
- G. C. Greubel, Table of n, a(n) for n = 1..250
- Ia. V. Blagouchine, Three Notes on Ser's and Hasse's Representations for the Zeta-functions. INTEGERS, Electronic Journal of Combinatorial Number Theory, vol. 18A, Article #A3, pp. 1-45, 2018. arXiv:1606.02044 [math.NT], 2016.
Programs
-
Maple
a := proc (n) options operator, arrow; denum((1/2)*(-1)^(n+1)*(sum(Stirling1(n-1, l)*((-1/2)^(l+1)+1)/(l+1), l = 0 .. n-1))/factorial(n)+(-1)^(n+1)*(sum(Stirling1(n, l)/(l+1), l = 1 .. n))/(n*factorial(n))) end proc
-
Mathematica
a[n_] := Denominator[(1/2)*(-1)^(n+1)*(Sum[StirlingS1[n-1,l]*((-1/2)^(l+1) + 1)/(l+1),{l,0,n-1}])/(n!) + (-1)^(n+1)*(Sum[StirlingS1[n, l]/(l+1),{l,1,n}])/(n*n!)]; Table[a[n], {n, 1, 24}]
-
PARI
a(n) = denominator((1/2)*(-1)^(n+1)*(sum(l=0,n-1,stirling(n-1,l)*((-1/2)^(l+1) + 1)/(l+1)))/(n!) + (-1)^(n+1)*(sum(l=1,n,stirling(n,l)/(l+1)))/(n*n!))
Comments