A306821 Inverse binomial transform of the "original" Bernoulli numbers [A164555(n)/A027642(n)] with 1 and 1/2 swapped. Denominators.
2, 2, 3, 1, 15, 1, 21, 1, 15, 1, 33, 1, 1365, 1, 3, 1, 255, 1, 399, 1, 165, 1, 69, 1, 1365, 1, 3, 1, 435, 1, 7161, 1, 255, 1, 3, 1, 959595, 1, 3, 1, 6765, 1, 903, 1, 345, 1, 141, 1, 23205, 1, 33, 1, 795, 1, 399, 1
Offset: 0
Crossrefs
Programs
-
Mathematica
b[n_] = BernoulliB[n]; b[0] = 1/2; b[1] = 1; a[n_] := Sum[(-1)^(n - k)*Binomial[n, k]*b[k], {k, 0, m}] // Denominator; Table[a[n], {n, 0, 55}] (* Jean-François Alcover, Jun 04 2019 *)
Comments