|
| |
|
|
A181131
|
|
Denominators of Integrate[PolyLog[-n, -x]^2, {x, 0, Infinity}] for n > 0 and a(0) = 1.
|
|
7
|
|
|
|
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
|
Table of n, a(n) for n=0..25.
|
|
|
FORMULA
|
G.f. for A181130(n)/A181131(n): (-1)^n/Pi^(2*n)*integral((log(t/(1-t))*log(1-1/t))^n dt,t=0,1) - [Gerry Martens, May 25 2011]
|
|
|
MATHEMATICA
|
Table[Denominator[Integrate[PolyLog[-n, -x]^2, {x, 0, Infinity}]], {n, 1, 18}]
|
|
|
PROG
|
(Sage) # BernoulliMedian_list is defined in A212196.
def A181131_list(n) : return map(denominator, BernoulliMedian_list(n))
# Peter Luschny, May 04 2012
|
|
|
CROSSREFS
|
Cf. A181130, A212196.
Sequence in context: A139766 A003276 A136092 * A145624 A025547 A220747
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. Peter Luschny, May 04 2012
|
|
|
STATUS
|
approved
|
| |
|
|
