A195240 Numerators of the second differences of the sequence of fractions (-1)^(n+1)*A176618(n)/A172031(n).
0, 1, 1, 7, 8, 11, 10, 7, 8, 19, 14, 337, 1028, 5, -2, -1681, 1936, 22133, -21734, -87223, 87388, 427291, -427222, -118181363, 118182728, 4276553, -4276550, -11874730297, 11874730732, 4307920641583
Offset: 0
Links
- Vincenzo Librandi, Table of n, a(n) for n = 0..300
Programs
-
Maple
read("transforms") ; evb := [0, 1, 0, seq(bernoulli(n), n=2..30)] ; ievb := BINOMIALi(evb) ; [seq((-1)^n*op(n,ievb),n=1..nops(ievb))] ; DIFF(%) ; DIFF(%) ; apply(numer,%) ; # R. J. Mathar, Sep 20 2011
-
Mathematica
evb = Join[{0, 1, 0}, Table[BernoulliB[n], {n, 2, 32}]]; ievb = Table[ Sum[Binomial[n, k]*evb[[k+1]], {k, 0, n}], {n, 0, Length[evb]-3}]; Differences[ievb, 2] // Numerator (* Jean-François Alcover, Sep 09 2013, after R. J. Mathar *)
Comments