login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A181131 Denominator of Integrate[PolyLog[-n, -x]^2, {x, 0, Infinity}] for n > 0, with a(0) = 1. 21
1, 3, 15, 105, 105, 231, 15015, 2145, 36465, 969969, 4849845, 10140585, 10140585, 22287, 3231615, 7713865005, 7713865005, 90751353, 218257003965, 1641030105, 67282234305, 368217318651, 1841086593255, 3762220429695, 63957747304815, 1546231253523 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

These are the denominators of the Bernoulli median numbers (see A212196). - Peter Luschny, May 04 2012

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 0..200

FORMULA

a(n) = denominator((-1)^n/Pi^(2*n)*integral((log(t/(1-t))*log(1-1/t))^n dt,t=0,1)). - [Gerry Martens, May 25 2011]

a(n) = Denominator(Sum_{k=0..n} C(n,k)*Bern(n+k)). - Vladimir Kruchinin, Apr 06 2015

MAPLE

seq(denom(add(binomial(n, k)*bernoulli(n+k), k=0..n)), n=0..100); # Robert Israel, Jun 02 2015

MATHEMATICA

Table[Denominator[Integrate[PolyLog[-n, -x]^2, {x, 0, Infinity}]], {n, 1, 18}]

max = 25; t[0] = Table[BernoulliB[n], {n, 0, 2*max}]; t[n_] := Differences[t[0], n]; a[n_] := t[n][[n + 1]] // Denominator; Table[a[n], {n, 0, max}] (* Jean-Fran├žois Alcover, Jul 25 2013, after Peter Luschny *)

PROG

(Sage) # BernoulliMedian_list is defined in A212196.

def A181131_list(n) : return map(denominator, BernoulliMedian_list(n))

# Peter Luschny, May 04 2012

(PARI) a(n)=denominator(-subst(intformal(polylog(-n, -x)^2), 'x, 0)) \\ Charles R Greathouse IV, Jul 21 2014

CROSSREFS

Cf. A181130, A212196.

Sequence in context: A136092 A273197 A255427 * A229726 A145624 A025547

Adjacent sequences:  A181128 A181129 A181130 * A181132 A181133 A181134

KEYWORD

nonn,frac

AUTHOR

Vladimir Reshetnikov, Jan 23 2011

EXTENSIONS

Offset set to 0, a(0) and a(19)..a(25) added by Peter Luschny, May 04 2012

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified September 25 21:33 EDT 2017. Contains 292500 sequences.