A075267 -id:A075267 - cp's OEIS frontend

A053657 a(n) = Product_{p prime} p^{ Sum_{k>=0} floor[(n-1)/((p-1)p^k)]}.

1, 2, 24, 48, 5760, 11520, 2903040, 5806080, 1393459200, 2786918400, 367873228800, 735746457600, 24103053950976000, 48206107901952000, 578473294823424000, 1156946589646848000, 9440684171518279680000, 18881368343036559360000, 271211974879377138647040000

Offset: 1

Jean-Luc Chabert, Feb 16 2000

LCM of denominators of the coefficients of x^n*z^k in {-log(1-x)/x}^z as k=0..n, as described by triangle A075264.
Denominators of integer-valued polynomials on prime numbers (with degree n): 1/a(n) is a generator of the ideal formed by the leading coefficients of integer-valued polynomials on prime numbers with degree less than or equal to n.
Also the least common multiple of the orders of all finite subgroups of GL_n(Q) [Minkowski]. Schur's notation for the sequence is M_n = a(n+1). - Martin Lorenz (lorenz(AT)math.temple.edu), May 18 2005
This sequence also occurs in algebraic topology where it gives the denominators of the Laurent polynomials forming a regular basis for K*K, the hopf algebroid of stable cooperations for complex K-theory. Several different equivalent formulas for the terms of the sequence occur in the literature. An early reference is K. Johnson, Illinois J. Math. 28(1), 1984, pp.57-63 where it occurs in lines 1-5, page 58. A summary of some of the other formulas is given in the appendix to K. Johnson, Jour. of K-theory 2(1), 2008, 123-145. - Keith Johnson (johnson(AT)mscs.dal.ca), Nov 03 2008
a(n) is divisible by n!, by Legendre's formula for the highest power of a prime that divides n!. Also, a(n) is divisible by (n+1)! if and only if n+1 is not prime. - Jonathan Sondow, Jul 23 2009
Triangle A163940 is related to the divergent series 1^m*1! - 2^m*2! + 3^m*3! - 4^m*4! + ... for m =>-1. The left hand columns of this triangle can be generated with the MC polynomials, see A163972. The Minkowski numbers appear in the denominators of these polynomials. - Johannes W. Meijer, Oct 16 2009
Unsigned Stirling numbers of the first kind as [s + k, k] (Karamata's notation) where k = {0, 1, 2, ...} and s is in general complex results in Pochhammer[s,k]*(integer coefficient polynomial of (k-1) degree in s) / M[k], where M[k] is the least common multiple of the orders of all finite groups of n x n-matrices over rational numbers (Minkowiski's theorem) which is sequence A053657. - Lorenz H. Menke, Jr., Feb 02 2010
From Peter Bala, Feb 21 2011: (Start)
Given a subset S of the integers Z, Bhargava has shown how to associate with S a generalized factorial function, denoted n!_S, which shares many properties of the classical factorial function n!.
The present sequence is the generalized factorial function n!S associated with the set of primes S = {2,3,5,7,...}. The associated generalized exponential function E(x) = Sum{n>=1} x^(n-1)/a(n) vanishes at x = -2: i.e. Sum_{n>=1} (-2)^n/a(n) = 0.
For the table of associated generalized binomial coefficients n!_S/(k!_S*(n-k)!_S) see A186430.
This sequence is related to the Bernoulli polynomials in two ways [Chabert and Cahen]:
(1) a(n) = (n-1)!*A001898(n-1).
(2) (t/(exp(t)-1))^x = sum {n = 0..inf} P(n,x)*t^n/a(n+1),
where the P(n,x) are primitive polynomials in the ring Z[x].
If p_1,...,p_n are any n primes then the product of their pairwise differences Product_{i(End)
LCM of denominators of the coefficients of S(m+n-1,m) as polynomial in m of degree 2*(n-1), as described by triangle A202339. - Vladimir Shevelev, Dec 17 2011
Sometimes called "Minkowski numbers" (e.g., by Guralnick and Lorenz), after the German mathematician Hermann Minkowski (1864-1909). - Amiram Eldar, Aug 24 2024

			a(7)=24^3*Product_{i=1..3} A202318(i)=24^3*1*10*21=2903040. - _Vladimir Shevelev_, Dec 17 2011

Jean-Luc Chabert, Scott T. Chapman, and William W. Smith, A basis for the ring of polynomials integer-valued on prime numbers, in: Daniel Anderson (ed.), Factorization in integral domains, Lecture Notes in Pure and Appl. Math. 189, Dekker, New York, 1997.

Gheorghe Coserea, Table of n, a(n) for n = 1..541
F. Bencherif, Sur une propriété des polynômes de Stirling, 26th Journées Arithmétiques, July 6-10, 2009, Université Jean Monnet, Saint-Etienne, France. [From _Jonathan Sondow_, Jul 23 2009]
M. Bhargava, The factorial function and generalizations, Amer. Math. Monthly, 107 (2000), 783-799.
Paul-Jean Cahen, and J. L. Chabert, What You Should Know About Integer-Valued Polynomials, The American Mathematical Monthly, 123 (No. 4, 2016), 311-337.
J.-L. Chabert, Integer-valued polynomials on prime numbers and logarithm power expansion, European J. Combinatorics 28 (2007) 754-761. [From _Jonathan Sondow_, Jul 23 2009]
J. L. Chabert, About polynomials whose divided differences are integer-valued on prime numbers, ICM 2012 Proceedings, vol. I, pp. 1-7. Complete proceedings. (warning: file size is 26MB). - From _N. J. A. Sloane_, Nov 28 2012
J.-L. Chabert and P.-J. Cahen, Old problems and new questions around integer-valued polynomials and factorial sequences.
Robert M. Guralnick and Martin Lorenz, Orders of Finite Groups of Matrices, in: William Chin, James Osterburg and Declan Quinn (eds.), Groups, Rings and Algebras, Contemporary Mathematics, Vol. 420 (2006), pp. 141-161; arXiv preprint, arXiv:math/0511191 [math.GR], 2005; author's link.
K. Johnson, The action of the stable operations of complex K-theory on coefficient groups, Illinois J. Math. 28(1), 1984, pp. 57-63. [From Keith Johnson (johnson(AT)mscs.dal.ca), Nov 03 2008]
K. Johnson, The invariant subalgebra and anti-invariant submodule of K_*K_{(p)}, Jour. of K-theory 2(1), 2008, 123-145. [From Keith Johnson (johnson(AT)mscs.dal.ca), Nov 03 2008]
Hermann Minkowski, Zur Theorie der quadratischen Formen, J. Reine Angew. Math. 101 (1887), 196-202. ( = Ges. Abh., pp. 212-218, Chelsea, New York, 1967.)
Issai Schur, Über eine Klasse von endlichen Gruppen linearer Substitutionen, Sitzungsber. Preuss. Akad. Wiss. (1905), 77-91. ( = Ges. Abh., Bd. 1, pp. 128-142, Springer-Verlag, Berlin-Heidelberg-New York, 1973.)
J.-P. Serre, Bounds for the orders of the finite subgroups of G(k), Group Representation Theory (eds. M. Geck, D. Testerman, J. Thevenaz), EPFL Press, Lausanne, 2006, 405-450.
Wikipedia, Bhargava factorial.
Gregory Gerard Wojnar, Daniel Sz. Wojnar, and Leon Q. Brin, Universal Peculiar Linear Mean Relationships in All Polynomials, arXiv:1706.08381 [math.GM], 2017. See p. 14.

Cf. A002207, A075264, A075266, A075267.
a(n) = n!*A163176(n). - Jonathan Sondow, Jul 23 2009
Cf. A202318.
Appears in A163972. - Johannes W. Meijer, Oct 16 2009
Cf. A001898, A007814, A163940, A186430, A202339, A212429, A346046.

A053657 := proc(n) local P,p,q,s,r;
P := select(isprime,[$2..n]); r:=1;
for p in P do s := 0; q := p-1;
do if q > (n-1) then break fi;
s := s + iquo(n-1,q); q := q*p; od;
r := r * p^s; od; r end: # Peter Luschny, Jul 26 2009
ser := series((y/(exp(y)-1))^x, y, 20): a := n -> denom(coeff(ser, y, n-1)):
seq(a(n), n=1..19); # Peter Luschny, May 13 2019

m = 16; s = Expand[Normal[Series[(-Log[1-x]/x)^z, {x, 0, m}]]];
a[n_, k_] := Denominator[ Coefficient[s, x^n*z^k]];
Prepend[Apply[LCM, Table[a[n,k], {n,m}, {k,n}], {1}], 1]
(* Jean-François Alcover, May 31 2011 *)
a[n_] := Product[p^Sum[Floor[(n-1)/((p-1) p^k)], {k, 0, n}], {p, Prime[ Range[n] ]}]; Array[a, 30] (* Jean-François Alcover, Nov 22 2016 *)

{a(n)=local(X=x+x^2*O(x^n),D);D=1;for(j=0,n-1,D=lcm(D,denominator( polcoeff(polcoeff((-log(1-X)/x)^z+z*O(z^j),j,z),n-1,x))));return(D)} /* Paul D. Hanna, Jun 27 2005 */

{a(n)=prod(i=1,#factor(n!)~,prime(i)^sum(k=0,#binary(n), floor((n-1)/((prime(i)-1)*prime(i)^k))))} /* Paul D. Hanna, Jun 27 2005 */

S(n, p) = {
     my(acc = 0, tmp = p-1);
     while (tmp < n, acc += floor((n-1)/tmp); tmp *= p);
     return(acc);
};
a(n) = {
     my(rv = 1);
     forprime(p = 2, n, rv *= p^S(n,p));
     return(rv);
};
vector(17, i, a(i))  \\ Gheorghe Coserea, Aug 24 2015

a(2n) = 2*a(2n-1). - Jonathan Sondow, Jul 23 2009
a(2*n+1) = 24^n * Product_{i=1..n} A202318(i). - Vladimir Shevelev, Dec 17 2011
For n>=0, A007814(a(n+1)) = n+A007814(n!). - Vladimir Shevelev, Dec 28 2011
a(n) = denominator([y^(n-1)] (y/(exp(y)-1))^x). - Peter Luschny, May 13 2019
Sum_{n>=1} 1/a(n) = A346046. - Amiram Eldar, Jul 02 2023

More terms from Paul D. Hanna, Jun 27 2005

A002657 Numerators of Cauchy numbers of second type (= Bernoulli numbers B_n^{(n)}).

Original entry on oeis.org

1, 1, 5, 9, 251, 475, 19087, 36799, 1070017, 2082753, 134211265, 262747265, 703604254357, 1382741929621, 8164168737599, 5362709743125, 8092989203533249, 15980174332775873, 12600467236042756559

Offset: 0

N. J. A. Sloane

These coefficients (with alternating signs) are also known as the Nørlund [or Norlund, Noerlund or Nörlund] numbers. [After the Danish mathematician Niels Erik Nørlund (1885-1981). - Amiram Eldar, Jun 17 2021]
The denominators are found in A002790. The alternating rational sequence ((-1)^n)*a(n)/A002790(n)is the z-sequence for the Stirling2 triangle A008277(n+1,k+1), n>=k>=0. This is the Sheffer (exp(x),exp(x)-1) triangle. See the W. Lang link under A006232 for Sheffer a- and z-sequences with references, and the conversion to S. Roman's notation. The a-sequence is A006232(n)/A006233(n). - Wolfdieter Lang, Oct 06 2011 [This is the Sheffer triangle A007318*A048993. Added Jun 20 2017]
A simple series with the signless Cauchy numbers of second type C2(n) leads to Euler's constant: gamma = 1 - Sum_{n >=1} C2(n)/(n*(n+1)!) = 1 - 1/4 - 5/72 - 1/32 - 251/14400 - 19/1728 - 19087/2540160 - ..., see references [Blagouchine] below, as well as A075266 and A262235. - Iaroslav V. Blagouchine, Sep 15 2015

			1, 1/2, 5/6, 9/4, 251/30, 475/12, 19087/84, 36799/24, 1070017/90, ...

Louis Comtet, Advanced Combinatorics, Reidel, 1974, p. 294.
P. Curtz, Intégration numérique des systèmes différentiels à conditions initiales, Centre de Calcul Scientifique de l'Armement, Arcueil, 1969.
Louis Melville Milne-Thompson, Calculus of Finite Differences, 1951, p. 136.
N. E. Nørlund, Vorlesungen über Differenzenrechnung, Springer-Verlag, Berlin, 1924.
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

T. D. Noe, Table of n, a(n) for n = 0..100
Ibrahim M. Alabdulmohsin, The Language of Finite Differences, in Summability Calculus: A Comprehensive Theory of Fractional Finite Sums, Springer, Cham, 2018, pp. 133-149.
Iaroslav V. Blagouchine, Expansions of generalized Euler's constants into the series of polynomials in 1/pi^2 and into the formal enveloping series with rational coefficients only. Journal of Number Theory (Elsevier), vol. 158, pp. 365-396, 2016. arXiv version, arXiv:1501.00740 [math.NT], 2015.
Iaroslav V. Blagouchine, Two series expansions for the logarithm of the gamma function involving Stirling numbers and containing only rational coefficients for certain arguments related to 1/pi, Journal of Mathematical Analysis and Applications (Elsevier), 2016. arXiv version, arXiv:1408.3902 [math.NT], 2014-2016.
Iaroslav V. Blagouchine, Three notes on Ser's and Hasse's representation for the zeta-functions, Integers (2018) 18A, Article #A3.
Donghyun Kim and Jaeseong Oh, Extending the science fiction and the Loehr--Warrington formula, arXiv:2409.01041 [math.CO], 2024. See p. 32.
Takao Komatsu, Convolution Identities for Cauchy Numbers of the Second Kind, Kyushu Journal of Mathematics, Vol. 69, No. 1 (2015), pp. 125-144.
Guodong Liu, Some computational formulas for Norlund numbers, Fib. Quart., Vol. 45, No. 2 (2007), pp. 133-137.
Guo-Dong Liu, H. M. Srivastava, and Hai-Quing Wang, Some Formulas for a Family of Numbers Analogous to the Higher-Order Bernoulli Numbers, J. Int. Seq., Vol. 17 (2014), Article 14.4.6.
Rui-Li Liu and Feng-Zhen Zhao, Log-concavity of two sequences related to Cauchy numbers of two kinds, Online Journal of Analytic Combinatorics, Issue 14 (2019), #09.
Donatella Merlini, Renzo Sprugnoli and M. Cecilia Verri, The Cauchy numbers, Discrete Math., Vol. 306, No. 16 (2006), pp. 1906-1920.
Louis Melville Milne-Thompson, Calculus of Finite Differences, 1951. [Annotated scan of pages 135, 136 only]
N. E. Nørlund, Vorlesungen ueber Differenzenrechnung Springer, 1924, p. 461.
N. E. Nörlund, Vorlesungen über Differenzenrechnung, Springer-Verlag, Berlin, 1924; page 461 [Annotated scanned copy of pages 144-151 and 456-463]
Michael O. Rubinstein, Identities for the Riemann zeta function, Ramanujan J., Vol. 27, No. 1 (2012), pp. 29-42; arXiv preprint, arXiv:0812.2592 [math.NT], 2008-2009.
Feng-Zhen Zhao, Sums of products of Cauchy numbers, Discrete Math., Vol. 309, No. 12 (2009), pp. 3830-3842.
Index entries for sequences related to Bernoulli numbers.

Cf. A002206, A002207, A002208, A002209, A002790, A006232, A006233, A075266, A075267, A262235.

m:=25; R:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(-x/((1-x)*Log(1-x)) )); [Numerator(Factorial(n-1)*b[n]): n in [1..m-1]]; // G. C. Greubel, Oct 29 2018

seq(numer(add((-1)^(n-k)*Stirling1(n,k)/(k+1),k=0..n)),n=0..10); # Peter Luschny, Apr 28 2009

Table[Abs[Numerator[NorlundB[n,n]]],{n,0,30}](* Vladimir Joseph Stephan Orlovsky, Dec 30 2010 *)
a[ n_] := If[ n < 0, 0, (-1)^n Numerator @ NorlundB[ n, n]]; (* Michael Somos, Jul 12 2014 *)
a[ n_] := If[ n < 0, 0, Numerator@Integrate[ Pochhammer[ x, n], {x, 0, 1}]]; (* Michael Somos, Jul 12 2014 *)
a[ n_] := If[ n < 0, 0, Numerator[ n! SeriesCoefficient[ -x / ((1 - x) Log[ 1 - x]), {x, 0, n}]]]; (* Michael Somos, Jul 12 2014 *)
a[ n_] := If[ n < 0, 0, (-1)^n Numerator[ n! SeriesCoefficient[ (x / (Exp[x] - 1))^n, {x, 0, n}]]]; (* Michael Somos, Jul 12 2014 *)

v(n):=if n=0 then 1 else 1-sum(v(i)/(n-i+1),i,0,n-1);
makelist(num(n!*v(n)),n,0,10); /* Vladimir Kruchinin, Aug 28 2013 */

Numerator of integral of x(x+1)...(x+n-1) from 0 to 1.
E.g.f.: -x/((1-x)*log(1-x)). (Note: the numerator of the coefficient of x^n/n! is a(n). - Michael Somos, Jul 12 2014). E.g.f. rewritten by Iaroslav V. Blagouchine, May 07 2016
Numerator of Sum_{k=0..n} (-1)^(n-k) A008275(n,k)/(k+1). - Peter Luschny, Apr 28 2009
a(n) = numerator(n!*v(n)), where v(n) = 1 - Sum_{i=0..n-1} v(i)/(n-i+1), v(0)=1. - Vladimir Kruchinin, Aug 28 2013

A002790 Denominators of Cauchy numbers of second type (= Bernoulli numbers B_n^{(n)}).

Original entry on oeis.org

1, 2, 6, 4, 30, 12, 84, 24, 90, 20, 132, 24, 5460, 840, 360, 16, 1530, 180, 7980, 840, 13860, 440, 1656, 720, 81900, 6552, 216, 112, 3480, 240, 114576, 7392, 117810, 2380, 1260, 72, 3838380, 207480, 32760, 560, 568260, 27720, 238392, 55440, 869400, 2576, 236880

Offset: 0

N. J. A. Sloane

The numerators are given in A002657.
These coefficients (with alternating signs) are also known as the Nørlund [or Norlund, Noerlund or Nörlund] numbers.
A simple series with the signless Cauchy numbers of second type C2(n) leads to Euler's constant: gamma = 1 - Sum_{n >=1} C2(n)/(n*(n+1)!) = 1 - 1/4 - 5/72 - 1/32 - 251/14400 - 19/1728 - 19087/2540160 - ..., see references [Blagouchine] below, as well as A075266 and A262235. - Iaroslav V. Blagouchine, Sep 15 2015
a(n) appears to be divisible by n+1. - Hal M. Switkay, Aug 15 2025

			1, 1/2, 5/6, 9/4, 251/30, 475/12, 19087/84, 36799/24, 1070017/90, ...

L. Comtet, Advanced Combinatorics, Reidel, 1974, p. 294.
L. M. Milne-Thompson, Calculus of Finite Differences, 1951, p. 136.
N. E. Nørlund, Vorlesungen über Differenzenrechnung, Springer-Verlag, Berlin, 1924.
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

T. D. Noe, Table of n, a(n) for n = 0..1000
Ibrahim M. Alabdulmohsin, The Language of Finite Differences, in Summability Calculus: A Comprehensive Theory of Fractional Finite Sums, Springer, Cham, pp 133-149.
Iaroslav V. Blagouchine, Two series expansions for the logarithm of the gamma function involving Stirling numbers and containing only rational coefficients for certain arguments related to 1/pi, Journal of Mathematical Analysis and Applications (Elsevier), 2016. arXiv version, arXiv:1408.3902 [math.NT], 2014-2016.
Iaroslav V. Blagouchine, Expansions of generalized Euler's constants into the series of polynomials in 1/pi^2 and into the formal enveloping series with rational coefficients only. Journal of Number Theory (Elsevier), vol. 158, pp. 365-396, 2016. arXiv version, arXiv:1501.00740 [math.NT], 2015.
Iaroslav V. Blagouchine, Three notes on Ser's and Hasse's representation for the zeta-functions, Integers (2018) 18A, Article #A3.
C. H. Karlson & N. J. A. Sloane, Correspondence, 1974
Guodong Liu, Some computational formulas for Norlund numbers, Fib. Quart., 45 (2007), 133-137.
Guo-Dong Liu, H. M. Srivastava, Hai-Quing Wang, Some Formulas for a Family of Numbers Analogous to the Higher-Order Bernoulli Numbers, J. Int. Seq. 17 (2014) # 14.4.6.
Rui-Li Liu and Feng-Zhen Zhao, Log-concavity of two sequences related to Cauchy numbers of two kinds, Online Journal of Analytic Combinatorics, Issue 14 (2019), #09.
Donatella Merlini, Renzo Sprugnoli and M. Cecilia Verri, The Cauchy numbers, Discrete Math. 306 (2006), no. 16, 1906-1920.
L. M. Milne-Thompson, Calculus of Finite Differences, 1951. [Annotated scan of pages 135, 136 only]
N. E. Nørlund, Vorlesungen ueber Differenzenrechnung Springer 1924, p. 461.
N. E. Nörlund, Vorlesungen über Differenzenrechnung, Springer-Verlag, Berlin, 1924; page 461 [Annotated scanned copy of pages 144-151 and 456-463]
Feng-Zhen Zhao, Sums of products of Cauchy numbers, Discrete Math., 309 (2009), 3830-3842.
Index entries for sequences related to Bernoulli numbers.

Cf. A002657, A075266, A075267, A262235.

See also A002208, A002209, A002206, A002207, A006232, A006233.

m:=60; R:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(-x/((1-x)*Log(1-x)) )); [Denominator(Factorial(n-1)*b[n]): n in [1..m-1]]; // G. C. Greubel, Oct 28 2018

A002790 := proc(n)
    denom(add((-1)^k*Stirling1(n, k)/(k+1), k=0..n)) ;
end proc: # Peter Luschny, Apr 28 2009
v := proc(n) option remember; ifelse(n=0, 1, 1 - add(v(i)/(n-i+1), i=0..n-1)) end:
seq(denom(n!*v(n)), n = 0..46); # after Vladimir Kruchinin, Peter Luschny, Aug 17 2025

Table[ Denominator[ NorlundB[n, n]], {n, 0, 60}] (* Vladimir Joseph Stephan Orlovsky, Dec 30 2010 *)

v(n):=if n=0 then 1 else 1-sum(v(i)/(n-i+1),i,0,n-1);
makelist(denom(n!*v(n)),n,0,10); /* Vladimir Kruchinin, Aug 28 2013 */

Denominator of integral of x(x+1)...(x+n-1) from 0 to 1.
E.g.f.: -x/((1-x)*log(1-x)). - Corrected by Iaroslav V. Blagouchine, May 07 2016.
Denominator of Sum_{k=0..n} (-1)^k A008275(n,k)/(k+1). - Peter Luschny, Apr 28 2009
a(n) = denominator(n!*v(n)), where v(n) = 1 - Sum_{i=0..n-1} v(i)/(n-i+1), v(0)=1. - Vladimir Kruchinin, Aug 28 2013

A075266 Numerator of the coefficient of x^n in log(-log(1-x)/x).

Original entry on oeis.org

0, 1, 5, 1, 251, 19, 19087, 751, 1070017, 2857, 26842253, 434293, 703604254357, 8181904909, 1166309819657, 5044289, 8092989203533249, 5026792806787, 12600467236042756559, 69028763155644023, 8136836498467582599787

Offset: 0

Paul D. Hanna, Sep 15 2002

A series with these numerators leads to Euler's constant: gamma = 1 - 1/4 - 5/72 - 1/32 - 251/14400 - 19/1728 - 19087/2540160 - ..., see references [Blagouchine] below, as well as A262235. - Iaroslav V. Blagouchine, Sep 15 2015

Robert Israel, Table of n, a(n) for n = 1..447
Iaroslav V. Blagouchine, Two series expansions for the logarithm of the gamma function involving Stirling numbers and containing only rational coefficients for certain arguments related to 1/pi, Journal of Mathematical Analysis and Applications (Elsevier), 2016. arXiv version, arXiv:1408.3902 [math.NT], 2014-2016
Iaroslav V. Blagouchine, Expansions of generalized Euler's constants into the series of polynomials in 1/pi^2 and into the formal enveloping series with rational coefficients only, Journal of Number Theory (Elsevier), vol. 158, pp. 365-396, 2016. arXiv version, arXiv:1501.00740 [math.NT], 2015.

Cf. A053657, A075264, A075267 (denominator), A262235.

S:= series(log(-log(1-x)/x),x,51):
seq(numer(coeff(S,x,j)),j=0..50); # Robert Israel, May 17 2016
# Alternative:
a := proc(n) local r; r := proc(n) option remember; if n=0 then 1 else
1 - add(r(k)/(n-k+1), k=0..n-1) fi end: numer(r(n)/(n*(n+1))) end:
seq(a(n), n=0..20); # Peter Luschny, Apr 19 2018

Numerator[ CoefficientList[ Series[ Log[ -Log[1 - x]/x], {x, 0, 20}], x]]

@cached_function
def r(n): return 1 - sum(r(k)/(n-k+1) for k in range(n)) if n > 0 else 1
def a(n: int): return numerator(r(n)/(n*(n+1))) if n > 0 else 0
print([a(n) for n in range(21)])  # Peter Luschny, Aug 15 2025

a(n) = numerator(Sum_{k=1..n} (k-1)!*(-1)^(n-k-1)*binomial(n,k)*Stirling1(n+k,k)/(n+k)!). - Vladimir Kruchinin, Aug 14 2025

Edited by Robert G. Wilson v, Sep 17 2002

a(0) = 0 prepended by Peter Luschny, Aug 15 2025

A262235 Denominators of a series leading to Euler's constant gamma.

Original entry on oeis.org

4, 72, 32, 14400, 1728, 2540160, 138240, 261273600, 896000, 10538035200, 209018880, 407994402816000, 5633058816000, 941525544960000, 4723310592, 8707228239790080000, 6162712657920000, 17473102222724628480000, 107559878256230400000, 14162409169997856768000000

Offset: 1

Iaroslav V. Blagouchine, Sep 15 2015

Gamma = 1 - 1/4 - 5/72 - 1/32 - 251/14400 - 19/1728 - 19087/2540160 - ..., see the references below.

			Denominators of 1/4, 5/72, 1/32, 251/14400, 19/1728, 19087/2540160, ...

G. C. Greubel, Table of n, a(n) for n = 1..250
Iaroslav V. Blagouchine, Two series expansions for the logarithm of the gamma function involving Stirling numbers and containing only rational coefficients for certain arguments related to 1/pi, Journal of Mathematical Analysis and Applications (Elsevier), 2016. arXiv version, arXiv:1408.3902 [math.NT], 2014-2016.
Iaroslav V. Blagouchine, Expansions of generalized Euler's constants into the series of polynomials in 1/pi^2 and into the formal enveloping series with rational coefficients only. Journal of Number Theory (Elsevier), vol. 158, pp. 365-396, 2016. arXiv version, arXiv:1501.00740 [math.NT], 2015.

Cf. A001067, A001620, A002657, A002790, A006953, A075266, A075267, A195189.

a := proc(n) local r; r := proc(n) option remember; if n=0 then 1 else
1 - add(r(k)/(n-k+1), k=0..n-1) fi end: denom(r(n)/(n*(n+1))) end:
seq(a(n), n=1..20); # Peter Luschny, Apr 19 2018

g[n_] := Sum[Abs[StirlingS1[n, l]]/(l + 1), {l, 1, n}]/(n*(n + 1)!); a[n_] := Denominator[g[n]]; Table[a[n], {n, 1, 20}]

a(n) = C2(n)/(n*(n + 1)!), where C2(n) are Cauchy numbers of the second kind (see A002657 and A002790).

A262856 Numerators of the Nielsen-Jacobsthal series leading to Euler's constant.

Original entry on oeis.org

1, 43, 20431, 2150797323119, 9020112358835722225404403, 51551916515442115079024221439308876243677598340510141

Offset: 1

Iaroslav V. Blagouchine, Oct 03 2015

gamma = 1 - 1/12 - 43/420 - 20431/240240 - 2150797323119/36100888223400 - ..., see formula (36) in the reference below.

			Numerators of 1/12, 43/420, 20431/240240, 2150797323119/36100888223400, ...

G. C. Greubel, Table of n, a(n) for n = 1..10
Iaroslav V. Blagouchine, Expansions of generalized Euler's constants into the series of polynomials in 1/pi^2 and into the formal enveloping series with rational coefficients only. Journal of Number Theory (Elsevier), vol. 158, pp. 365-396, 2016. arXiv version, arXiv:1501.00740 [math.NT], 2015.

Cf. A075266, A075267, A001620, A195189, A002657, A002790, A262235, A075266, A006953, A001067, A262858 (denominators of this series).

List(List([1..6],n->n*Sum([2^n+1..2^(n+1)],k->(-1)^(k+1)/k)),NumeratorRat); # Muniru A Asiru, Oct 29 2018

[Numerator(n*(&+[(-1)^(k+1)/k: k in [2^n+1..2^(n+1)]])): n in [1..6]]; // G. C. Greubel, Oct 28 2018

a[n_] := Numerator[n*Sum[(-1)^(k + 1)/k, {k, 2^n + 1, 2^(n + 1)}]]; Table[a[n], {n, 1, 8}]

a(n) = numerator(n*sum(k=2^n + 1,2^(n + 1),(-1)^(k + 1)/k));

a(n) = n * Sum_{k = 2^n + 1 .. 2^(n + 1)} (-1)^(k + 1)/k.

A262858 Denominators of the Nielsen-Jacobsthal series leading to Euler's constant.

Original entry on oeis.org

12, 420, 240240, 36100888223400, 236453376820564453502272320, 2225626015166235263233958200740039423756478781341512000

Offset: 1

Iaroslav V. Blagouchine, Oct 03 2015

gamma = 1 - 1/12 - 43/420 - 20431/240240 - 2150797323119/36100888223400 - ..., see formula (36) in the reference below.

			Denominators of 1/12, 43/420, 20431/240240, 2150797323119/36100888223400, ...

G. C. Greubel, Table of n, a(n) for n = 1..10
Iaroslav V. Blagouchine, Expansions of generalized Euler's constants into the series of polynomials in 1/pi^2 and into the formal enveloping series with rational coefficients only. Journal of Number Theory (Elsevier), vol. 158, pp. 365-396, 2016. arXiv version, arXiv:1501.00740 [math.NT], 2015.

Cf. A075266, A075267, A001620, A195189, A002657, A002790, A262235, A075266, A006953, A001067, A262856 (numerators of this series).

List(List([1..6],n->n*Sum([2^n+1..2^(n+1)],k->(-1)^(k+1)/k)),DenominatorRat); # Muniru A Asiru, Oct 29 2018

[Denominator(n*(&+[(-1)^(k+1)/k: k in [2^n+1..2^(n+1)]])): n in [1..6]];  // G. C. Greubel, Oct 28 2018

a[n_] := Denominator[n*Sum[(-1)^(k + 1)/k, {k, 2^n + 1, 2^(n + 1)}]]; Table[a[n], {n, 1, 8}]

a(n) = denominator(n*sum(k=2^n + 1,2^(n + 1),(-1)^(k + 1)/k));

a(n) = n * Sum_{k = 2^n + 1 .. 2^(n + 1)} (-1)^(k + 1)/k.

Showing 1-7 of 7 results.

cp's OEIS Frontend

A053657 a(n) = Product_{p prime} p^{ Sum_{k>=0} floor[(n-1)/((p-1)p^k)]}.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

PARI

PARI

PARI

Formula

Extensions

A002657 Numerators of Cauchy numbers of second type (= Bernoulli numbers B_n^{(n)}).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Magma

Maple

Mathematica

Maxima

Formula

A002790 Denominators of Cauchy numbers of second type (= Bernoulli numbers B_n^{(n)}).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Magma

Maple

Mathematica

Maxima

Formula

A075266 Numerator of the coefficient of x^n in log(-log(1-x)/x).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

SageMath

Formula

Extensions

A262235 Denominators of a series leading to Euler's constant gamma.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A262856 Numerators of the Nielsen-Jacobsthal series leading to Euler's constant.

Views

Author

Keywords

Comments

Examples

Links