%I N2200 #14 Jan 24 2020 10:22:48
%S 1,19,4315,237671,9751299,150653570023,1719676921651,111956703448001,
%T 515820397142126323,234948724145929620551,146676714003698721466337,
%U 2335491919795216159716047077,27307173331136364105327316225,15462805586388260782721906167299
%N Numerators of higher order Bernoulli numbers.
%C See Nørlund for precise definition.
%D N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
%H N. E. Nørlund, <a href="http://www-gdz.sub.uni-goettingen.de/cgi-bin/digbib.cgi?PPN373206070">Vorlesungen über Differenzenrechnung</a>, Springer, 1924, p. 461.
%p A213450 := proc(n)
%p local nu ;
%p nu := 2*n+2 ;
%p mul(t-i,i=0..nu-1) ;
%p int(%,t=0..1)*(nu-1) ;
%p abs(numer( %)) ;
%p end proc:
%p seq(A213450(n),n=0..15) ; # _R. J. Mathar_, Jun 26 2012
%t a[n_] := With[{nu = 2n+2}, Integrate[Product[t-i, {i, 0, nu-1}], {t, 0, 1}]*(nu-1) // Numerator // Abs];
%t a /@ Range[0, 13] (* _Jean-François Alcover_, Jan 24 2020, after _R. J. Mathar_ *)
%K nonn,frac
%O 0,2
%A _N. J. A. Sloane_, Jun 12 2012
|