A240675 -id:A240675 - cp's OEIS frontend

A240181 Array: t(n,k) is the number of partitions p of n such that the number of distinct numbers in the intersection of p and its conjugate is k, for k >= 0, n >= 1.

0, 1, 2, 2, 0, 1, 2, 3, 2, 4, 1, 4, 6, 0, 1, 4, 8, 3, 8, 8, 5, 1, 10, 9, 11, 10, 22, 8, 1, 1, 14, 22, 17, 3, 18, 34, 19, 5, 1, 18, 50, 21, 12, 26, 60, 34, 13, 2, 30, 74, 52, 19, 0, 1, 36, 105, 57, 29, 4, 44, 120, 93, 34, 5, 1, 60, 144, 128, 40, 13, 64, 186

Offset: 1

Clark Kimberling, Apr 12 2014

First two columns are A240674 and A240675. Sum of numbers in row n is A000041(n), for n >= 1. Number of numbers in row n is A240450(n).

			First 15 rows:
  0 ... 1
  2
  2 ... 0 ... 1
  2 ... 3
  2 ... 4 ... 1
  4 ... 6 ... 0 ...1
  4 ... 8 ... 3
  8 ... 8 ... 5 ... 1
  10 .. 9 ... 11
  10 .. 22 .. 8 ... 1 ... 1
  14 .. 22 .. 17 .. 3
  18 .. 34 .. 19 .. 5 ... 1
  18 .. 50 .. 21 .. 12
  26 .. 60 .. 34 .. 13 .. 2
  30 .. 74 .. 52 .. 19 .. 0 .. 1
In the following table, p and c(p) denote a partition of 6 and its conjugate:
  p ........ c(p)
  6 ........ 111111
  51 ....... 21111
  42 ....... 2211
  411 ...... 3111
  33 ....... 222
  321 ...... 321
  3111 ..... 411
  222 ...... 33
  2211 ..... 42
  21111 .... 51
  111111 ... 6
Let I(p) be number of numbers in the intersection of c and c(p);  Then I(p) = 0 for 4 choices of p, I(p) = 1 for 6 choices, I(p) = 2 for 0 choices, and I(p) = 3 for 1 choice.  Thus, row 6 is 4 6 0 1.

Clark Kimberling, Table of n, a(n) for n = 1..200

Cf. A240674, A240675, A240450.

z = 30; conjugatePartition[part_] := Table[Count[#, _?(# >= i &)], {i, First[#]}] &[part]; c = Map[BinCounts[#, {0, 1 + Max[#]}] &[Map[Length, Map[Intersection[#, conjugatePartition[#]] &, IntegerPartitions[#]]]] &, Range[z]]; Flatten[c]  (* this sequence *)
Table[Length[c[[n]]], {n, 1, z}] (* A240450 *) (* Peter J. C. Moses, Apr 10 2014 *)

Name corrected by Clark Kimberling, Sep 28 2023

A240674 Number of partitions p of n that are disjoint from their conjugate.

Original entry on oeis.org

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: 0

Clark Kimberling, Apr 12 2014

First column of the array at A240181.

			a(6) counts these 4 partitions:  6, 33, 222, 111111, of which the respective conjugates are 111111, 222, 33, 6.

Cf. A240675, A114701, A240181.

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}] (* this sequence *)
Table[Count[Map[Length, b[n]], 1], {n, 1, z}]   (* A240675 *)

a(n) = 2*A114701(n), for n >= 1.

Name corrected by Clark Kimberling, Sep 28 2023

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

cp's OEIS Frontend

A240181 Array: t(n,k) is the number of partitions p of n such that the number of distinct numbers in the intersection of p and its conjugate is k, for k >= 0, n >= 1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions