The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A219976 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A219976

Denominators of the Inverse bi-binomial transform of A164558(n)/A027642(n) read downwards antidiagonals.
(history; published version)

#13 by T. D. Noe at Tue Apr 16 12:48:57 EDT 2013

STATUS

editing

approved

#12 by T. D. Noe at Tue Apr 16 12:48:51 EDT 2013

KEYWORD

nonn,tabl,less

#11 by T. D. Noe at Mon Mar 18 13:14:42 EDT 2013

STATUS

proposed

editing

Discussion

Tue Apr 09

08:02

OEIS Server: This sequence has not been edited or commented on for a week
yet is not proposed for review.  If it is ready for review, please
visit https://oeis.org/draft/A219976 and click the button that reads
"These changes are ready for review by an OEIS Editor."

Thanks.
  - The OEIS Server

#10 by Paul Curtz at Sun Mar 17 11:19:31 EDT 2013

STATUS

editing

proposed

#9 by Paul Curtz at Thu Mar 14 10:15:47 EDT 2013

CROSSREFS

Cf. A213268.

#8 by Paul Curtz at Mon Mar 11 11:24:32 EDT 2013

COMMENTS

Starting from any sequence a(k) in the first row, we define the array T(n,k) of the inverse bi-binomial transform by T(0,k) = a(k), T(n,k) = T(n-1,k+1) -2*T(n-1,k) n>0. Hence A164558(n)/A027642(n) and successive "bi-differences":

#7 by T. D. Noe at Thu Dec 06 17:53:34 EST 2012

STATUS

proposed

editing

Discussion

Sat Mar 09

17:38

OEIS Server: This sequence has not been edited or commented on for a week
yet is not proposed for review.  If it is ready for review, please
visit https://oeis.org/draft/A219976 and click the button that reads
"These changes are ready for review by an OEIS Editor."

Thanks.
  - The OEIS Server

#6 by Jean-François Alcover at Tue Dec 04 04:47:57 EST 2012

STATUS

editing

proposed

Discussion

Thu Dec 06

17:53

T. D. Noe: "Inverse bi-binomial transform" is an unknown term. Please describe it or add a link that describes it.

#5 by Jean-François Alcover at Tue Dec 04 04:47:30 EST 2012

MATHEMATICA

A164558[n_] := Sum[(-1)^k*Binomial[n, k]*BernoulliB[k], {k, 0, n}] // Numerator; t[0, k_?Positive] := A164558[k] / Denominator[ BernoulliB[k]]; t[n_?Positive, k_] := t[n, k] = t[n-1, k+1] - 2*t[n-1, k]; t[0, 0] = 1; t[_, _] = 0; Flatten[ Table[t[n-k , k] // Denominator, {n, 0, 9}, {k, 0, n}]] (* Jean-François Alcover, Dec 04 2012 *)

STATUS

proposed

editing

#4 by Paul Curtz at Mon Dec 03 08:31:26 EST 2012

STATUS

editing

proposed