A213446 Numerators of higher order Bernoulli numbers.
1, 5, 251, 19087, 1070017, 134211265, 703604254357, 8164168737599, 8092989203533249, 12600467236042756559, 8136836498467582599787, 440495080723071436695083, 11816334311483623162503196771, 19935908483981827227406276943, 239295997830894998532654988331179
Offset: 0
References
- N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
Links
- N. E. Nørlund, Vorlesungen über Differenzenrechnung, Springer, 1924, p. 461.
Crossrefs
Bisection (even indices) of A002657.
Programs
-
Maple
# Function B(n,x) defined in A213449. A213446 := n -> numer(B(2*n,2*n)): seq(A213446(n), n=0..14); # Peter Luschny, Oct 02 2016
-
Mathematica
a[n_] := Numerator[NorlundB[2n, 2n]]; Table[a[n], {n, 0, 14}] (* Jean-François Alcover, Jun 29 2019 *)
Extensions
More terms at the suggestion of Altug Alkan from Peter Luschny, Oct 02 2016
Comments