The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A214255

Number of compositions of n where differences between neighboring parts are in {-2,...,2}.
(history; published version)

#15 by Alois P. Heinz at Sun Nov 16 15:09:21 EST 2014

STATUS

editing

approved

#14 by Alois P. Heinz at Sun Nov 16 15:09:17 EST 2014

MAPLE

b:= proc(n, i) option remember; `if`(n<1 or i<1, 0,

`if`(n<1 or i<1, 0, `if`(n=i, 1, add(b(n-i, i+j), j=-2..2)))

seq (a(n), n=0..50);

STATUS

approved

editing

#13 by Bruno Berselli at Thu Nov 06 07:28:39 EST 2014

STATUS

proposed

approved

#12 by Michel Marcus at Thu Nov 06 06:48:58 EST 2014

STATUS

editing

proposed

#11 by Michel Marcus at Thu Nov 06 06:48:52 EST 2014

NAME

Number of compositions of n where differences between neighboring parts are in {-2,...,2}.

STATUS

proposed

editing

Discussion

Thu Nov 06

06:48

Michel Marcus: yes

#10 by Jean-François Alcover at Thu Nov 06 05:32:15 EST 2014

STATUS

editing

proposed

Discussion

Thu Nov 06

06:47

Michel Marcus: Number of compositions of n where ...
with an additional "of" ?

#9 by Jean-François Alcover at Thu Nov 06 05:32:09 EST 2014

MATHEMATICA

b[n_, i_] := b[n, i] = If[n < 1 || i < 1, 0, If[n == i, 1, Sum[b[n-i, i+j], {j, -2, 2}]]]; a[n_] := If[n == 0, 1, Sum[b[n, j], {j, 1, n}]]; Table[a[n], {n, 0, 50}] (* Jean-François Alcover, Nov 06 2014, after Alois P. Heinz *)

STATUS

approved

editing

#8 by Vaclav Kotesovec at Tue Sep 02 11:18:06 EDT 2014

STATUS

editing

approved

#7 by Vaclav Kotesovec at Tue Sep 02 11:17:59 EDT 2014

FORMULA

a(n) ~ c * d^n, where d = 1.8630486786572002290749607226537419966705160765891889162715127426..., c = 0.6251341184281574379681933375704862852528326365321195333127800734... . - Vaclav Kotesovec, Sep 02 2014

STATUS

approved

editing

#6 by Joerg Arndt at Tue Jul 10 09:13:20 EDT 2012

STATUS

proposed

approved