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 A129814 #24 Feb 16 2025 08:33:06
%S A129814 1,-1,1,0,-4,0,120,0,-12096,0,3024000,0,-1576143360,0,1525620096000,0,
%T A129814 -2522591034163200,0,6686974460694528000,0,-27033456071346536448000,0,
%U A129814 160078872315904478576640000,0,-1342964491649083924630732800000,0
%N A129814 a(n) = Bernoulli(n) * (n+1)!.
%C A129814 From _Peter Luschny_, Apr 21 2009: (Start)
%C A129814 Reading A137777 and A159749 as a triangular sequence:
%C A129814 2*a(n) = A137777(n, 0) for n > 0.
%C A129814 2*a(n) = (-1)^n*A159749(n, 0) for n >= 0. (End)
%H A129814 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/BernoulliNumber.html">Bernoulli Number</a>
%H A129814 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PolygammaFunction.html">Polygamma Function</a>
%F A129814 a(2*n) = A001332(n).
%F A129814 E.g.f.: -2 x - psi_2(1/x) / x^2, where psi_n(z) is the polygamma function, psi_n(z) = (d/dz)^{n+1} log(Gamma(z)). - _Vladimir Reshetnikov_, Apr 24 2013
%t A129814 Table[BernoulliB[n](n+1)!,{n,0,30}] (* _Harvey P. Dale_, Jan 18 2013 *)
%t A129814 Table[SeriesCoefficient[-2 x - PolyGamma[2, 1/x] / x^2, {x, 0, n}, Assumptions -> x > 0] n!, {n, 0, 30}] (* _Vladimir Reshetnikov_, Apr 24 2013 *)
%o A129814 (PARI) {for(n=0, 25, print1(bernfrac(n)*(n+1)!, ","))}
%o A129814 (PARI) {a(n) = if( n<0, 0, (n + 1)! * bernfrac( n))} /* _Michael Somos_, Mar 29 2011 */
%o A129814 (Magma) [Bernoulli(n) * Factorial(n+1): n in [0..100]]; // _Vincenzo Librandi_, Mar 29 2011
%Y A129814 Cf. A001332.
%K A129814 sign,easy
%O A129814 0,5
%A A129814 _Paul Curtz_, May 20 2007
%E A129814 Edited and extended by _Klaus Brockhaus_, May 28 2007