The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A071014

Binomial transform of A002487.
(history; published version)

#13 by Michael De Vlieger at Mon Apr 25 08:09:33 EDT 2022

STATUS

reviewed

approved

#12 by Michel Marcus at Mon Apr 25 04:41:30 EDT 2022

STATUS

proposed

reviewed

#11 by Jean-François Alcover at Mon Apr 25 04:41:02 EDT 2022

STATUS

editing

proposed

#10 by Jean-François Alcover at Mon Apr 25 04:40:59 EDT 2022

MATHEMATICA

b[n_] := b[n] = If[n < 2, n,

With[{q = Quotient[n, 2]}, b[q] + (n-2*q)*b[n-q]]];

a[n_] := Sum[b[n+2-j]*Binomial[n-1, j-1], {j, 1, n}];

Table[a[n], {n, 1, 33}] (* Jean-François Alcover, Apr 25 2022, after Alois P. Heinz *)

STATUS

approved

editing

#9 by Alois P. Heinz at Fri Oct 15 20:06:56 EDT 2021

STATUS

proposed

approved

#8 by Alois P. Heinz at Fri Oct 15 14:58:21 EDT 2021

STATUS

editing

proposed

#7 by Alois P. Heinz at Fri Oct 15 14:56:39 EDT 2021

MAPLE

b:= proc(n) option remember; `if`(n<2, n,

(q-> b(q)+(n-2*q)*b(n-q))(iquo(n, 2)))

end:

a:= n-> add(b(n+2-j)*binomial(n-1, j-1), j=1..n):

seq(a(n), n=1..33); # Alois P. Heinz, Oct 15 2021

STATUS

proposed

editing

#6 by Georg Fischer at Fri Oct 15 14:27:16 EDT 2021

STATUS

editing

proposed

#5 by Georg Fischer at Fri Oct 15 14:25:40 EDT 2021

COMMENTS

The transform omits the initial two terms 0, 1 of A002487. - Georg Fischer, Oct 15 2021

STATUS

approved

editing

Discussion

Fri Oct 15

14:27

Georg Fischer: ... that were not present in the original version #1 of A002487.

#4 by Russ Cox at Fri Mar 30 16:49:24 EDT 2012

AUTHOR

_N. J. A. Sloane (njas(AT)research.att.com), _, May 24 2002

Discussion

Fri Mar 30

16:49

OEIS Server: https://oeis.org/edit/global/110