The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A240674

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

A240674

Number of partitions p of n that are disjoint from their conjugate.
(history; published version)

#13 by Alois P. Heinz at Fri Jul 19 09:55:48 EDT 2024

STATUS

editing

approved

#12 by Alois P. Heinz at Fri Jul 19 09:55:32 EDT 2024

DATA

1, 0, 2, 2, 2, 2, 4, 4, 8, 10, 10, 14, 18, 18, 26, 30, 36, 44, 60, 64, 82, 96, 114, 130, 164, 176, 222, 248, 296, 338, 406, 450, 550, 620, 726, 816, 968, 1074, 1270, 1418, 1648, 1836, 2150, 2382, 2758, 3080, 3534, 3942, 4538, 5034, 5778, 6416, 7312, 8136, 9258

OFFSET

1,2

0,3

EXTENSIONS

a(0)=1 prepended by Alois P. Heinz, Jul 19 2024

STATUS

approved

editing

#11 by Alois P. Heinz at Thu Sep 28 16:45:29 EDT 2023

STATUS

proposed

approved

#10 by Clark Kimberling at Thu Sep 28 11:28:42 EDT 2023

STATUS

editing

proposed

#9 by Clark Kimberling at Thu Sep 28 11:27:41 EDT 2023

EXTENSIONS

Name corrected by Clark Kimberling, Sep 28 2023

STATUS

proposed

editing

#8 by Clark Kimberling at Thu Sep 28 10:48:15 EDT 2023

STATUS

editing

proposed

Discussion

Thu Sep 28

10:52

Michel Marcus: I think needs extension Name corrected by

#7 by Jon E. Schoenfield at Thu Sep 28 00:46:44 EDT 2023

MATHEMATICA

z = 30; p[n_, k_] := p[n, k] = IntegerPartitions[n][[k]]; c[p_] := c[p] = Table[Count[#, _?(# >= i &)], {i, First[#]}] &[p]; b[n_] := b[n] = Table[Intersection[p[n, k], c[p[n, k]]], {k, 1, PartitionsP[n]}]; Table[Count[Map[Length, b[n]], 0], {n, 1, z}] (* A240674 this sequence *)

#6 by Clark Kimberling at Wed Sep 27 19:36:15 EDT 2023

NAME

Number of partitions p of n that are disjoint from their complementconjugate.

STATUS

approved

editing

#5 by N. J. A. Sloane at Tue Apr 22 01:25:29 EDT 2014

STATUS

proposed

approved

#4 by Clark Kimberling at Fri Apr 18 09:09:28 EDT 2014

STATUS

editing

proposed