A165161 Numerator of the n-th term in the first differences of the binomial transform of the "original" Bernoulli numbers.
1, 2, 5, 29, 31, 43, 41, 29, 31, 71, 61, 2039, 3421, 13, -1, -3107, 4127, 44665, -43069, -174281, 174941, 854651, -854375, -236361361, 236366821, 8553109, -8553097, -23749460159, 23749461899, 8615841290327
Offset: 0
Programs
-
Maple
read("transforms") : A164555 := proc(n) if n <= 2 then 1; else numer(bernoulli(n)) ; end if; end proc: A027642 := proc(n) denom(bernoulli(n)) ; end proc: nmax := 40: BINOMIAL([seq(A164555(n)/A027642(n), n=0..nmax)]) : map(numer,DIFF(%)) ; # R. J. Mathar, Jul 07 2011
Comments