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.
%I A181130 #37 Mar 16 2020 13:09:22
%S A181130 1,2,8,8,32,6112,3712,362624,71706112,3341113856,79665268736,
%T A181130 1090547664896,38770843648,106053090598912,5507347586961932288,
%U A181130 136847762542978039808,45309996254420664320,3447910579774800362340352
%N A181130 Numerator of Integral_{x=0..+oo} Polylog(-n, -x)^2.
%C A181130 (-1)^n*a(n) is the numerator on the main diagonal of the (truncated) array described in A168516. - _Paul Curtz_, Jun 20 2011
%C A181130 These are - up to signs - the numerators of the Bernoulli median numbers (see A212196). - _Peter Luschny_, May 04 2012
%H A181130 Peter Luschny, <a href="http://oeis.org/wiki/User:Peter_Luschny/ComputationAndAsymptoticsOfBernoulliNumbers">The computation and asymptotics of the Bernoulli numbers</a>.
%F A181130 a(n) = numerator((-1)^n/Pi^(2*n)*integral((log(t/(1-t))*log(1-1/t))^n dt,t=0,1)). - [_Gerry Martens_, May 25 2011]
%p A181130 seq(numer((-1)^n*add(binomial(n,k)*bernoulli(n+k),k=0..n)), n=1..30); # _Robert Israel_, Jun 02 2015
%t A181130 Table[Numerator[Integrate[PolyLog[-n, -x]^2, {x, 0, Infinity}]], {n, 1, 18}]
%o A181130 (Sage) # uses[BernoulliMedian_list from A212196]
%o A181130 def A181130_list(n): return [q.numerator() for q in BernoulliMedian_list(n)]
%o A181130 # _Peter Luschny_, May 04 2012
%o A181130 (PARI) a(n)=(-1)^n*sum(k=0,n,binomial(n,k)*bernfrac(n+k)) \\ _Charles R Greathouse IV_, Jun 03 2015
%Y A181130 Cf. A181131 (denominator), A212196.
%K A181130 nonn,frac
%O A181130 1,2
%A A181130 _Vladimir Reshetnikov_, Jan 23 2011