cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A256671 Numerators of the inverse binomial transform of Bernoulli(n+2).

Original entry on oeis.org

1, -1, 2, -1, -1, 1, -1, -1, 7, 5, -2663, -691, 1247, 7, -1511, -3617, 1623817, 43867, -10405289, -174611, 21491081, 854513, -2523785339, -236364091, 1827648887, 8553103, -11254630547, -23749461029, 596303510772251, 8615841276005
Offset: 0

Views

Author

Paul Curtz, Apr 23 2015

Keywords

Comments

See the denominators, multiples of 3, A256675(n).
a(n) is the numerator of the n-th term of the first column of the difference table of B(n+2).
Inverse binomial transform of B(n+2): 1/6, -1/6, 2/15, -1/15, -1/105, 1/21, -1/105, -1/15, 7/165, 5/33, ... .

Crossrefs

Cf. A256675, A051720, A164555.

Formula

a(2n) = A051720(2n).
a(2n+3) = A164555(2n+4).

A307974 Inverse binomial transform of the "original" Bernoulli numbers [A164555(n)/A027642(n)] with 1 and 1/2 swapped. Numerators.

Original entry on oeis.org

1, 1, -4, 2, -38, 3, -73, 4, -68, 5, -179, 6, -9218, 7, -19, 8, -3976, 9, 18143, 10, -89038, 11, 426463, 12, -118199108, 13, 4276511, 14, -11874736822, 15, 4307920527007, 16, -3854660524816, 17, 1288843929131, 18, -13157635776544491194, 19, 1464996956920721, 20, -130541359248224699708
Offset: 0

Views

Author

Paul Curtz, May 30 2019

Keywords

Comments

Denominators: 2, 2, 3, 1, 15, 1, 21, 1, 15, 1, 33, 1, ... .
Denominators 3, 15, 21, 15, 33, 1365, 3, 255, ... coincide with cosecant numbers A001897, except 1 (conjectured).

Examples

			Successive differences show the data in the first column:
    1/2,     1,    1/6,     0,    -1/30,   0,   1/42, 0, ...
    1/2,   -5/6,  -1/6,   -1/30,   1/30,  1/42, ...
   -4/3,    2/3,   2/15,   1/15,  -1/105, ...
     2,    -8/15, -1/15,  -8/105, ...
  -38/15,   7/15, -1/105, ...
     3,   -10/21, ...
  -73/21, ...
  ... .
The third column is A256671(n)/A256675(n).

Crossrefs

Cf. A001897, A027642, A164555, A176328 (for the second bisection), A256671/A256675, A306821 (denominators).

Programs

  • Mathematica
    m = 40;
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}] // Numerator;
Table[a[n], {n, 0, m}]
(* Second program: *)
m = 40;
bb = CoefficientList[Series[x/(1 - Exp[-x]), {x, 0, m}], x]*Range[0, m]!;
bb[[1]] = 1/2; bb[[2]] = 1;
a[n_] := Differences[bb, n][[1]] // Numerator;
Table[a[n], {n, 0, m}] (* Jean-François Alcover, May 31 2019 *)

Formula

a(2*n+1) = n+1 (conjectured).
Showing 1-2 of 2 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.