The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A342337

Number of integer partitions of n with all adjacent parts (x, y) satisfying either x = y or x = 2y.
(history; published version)

#20 by Alois P. Heinz at Thu Jun 03 13:44:12 EDT 2021

STATUS

proposed

approved

#19 by Jean-François Alcover at Thu Jun 03 12:12:21 EDT 2021

STATUS

editing

proposed

#18 by Jean-François Alcover at Thu Jun 03 12:12:15 EDT 2021

MATHEMATICA

(* Second program: *)

b[n_, i_] := b[n, i] = If[n == 0, 1, Sum[b[n - j, j],

{j, If[i == 0, Range[n], Select[{i, 2i}, # <= n&]]}]];

a[n_] := b[n, 0];

a /@ Range[0, 80] (* Jean-François Alcover, Jun 03 2021, after Alois P. Heinz *)

STATUS

approved

editing

#17 by Alois P. Heinz at Mon May 24 20:55:16 EDT 2021

STATUS

editing

approved

#16 by Alois P. Heinz at Mon May 24 20:55:13 EDT 2021

MAPLE

b:= proc(n, i) option remember; `if`(n=0, 1, add(b(n-j, j),

j=`if`(i=0, 1..n, select(x-> x<=n, [i, 2*i]))))

end:

a:= n-> b(n, 0):

seq(a(n), n=0..80); # Alois P. Heinz, May 24 2021

STATUS

approved

editing

#15 by Alois P. Heinz at Mon May 24 20:54:00 EDT 2021

STATUS

editing

approved

#14 by Alois P. Heinz at Mon May 24 20:53:56 EDT 2021

LINKS

Alois P. Heinz, <a href="/A342337/b342337.txt">Table of n, a(n) for n = 0..10000</a>

STATUS

approved

editing

#13 by Susanna Cuyler at Fri Mar 12 04:04:10 EST 2021

STATUS

proposed

approved

#12 by Joerg Arndt at Fri Mar 12 03:40:31 EST 2021

STATUS

editing

proposed

#11 by Joerg Arndt at Fri Mar 12 03:40:17 EST 2021

DATA

1, 1, 2, 3, 4, 4, 7, 6, 9, 10, 12, 11, 19, 14, 20, 24, 27, 24, 37, 31, 44, 45, 49, 48, 71, 61, 72, 80, 92, 84, 118, 102, 128, 132, 144, 151, 191, 166, 197, 211, 244, 226, 287, 263, 313, 330, 348, 347, 435, 399, 462, 476, 524, 508, 614, 591, 674, 680, 732, 731, 890, 814, 916, 966, 1042, 1032, 1188, 1135, 1280, 1303

STATUS

proposed

editing

Discussion

Fri Mar 12

03:40

Joerg Arndt: All terms recomputed