A290959 Matrix rank of the number of dots in the pairwise intersections of Ferrers diagrams.
1, 2, 3, 5, 7, 11, 13, 17, 20, 24, 26, 32, 34, 38, 42, 47, 49, 55, 57, 63, 67, 71, 73, 81, 84, 88
Offset: 1
Programs
-
Mathematica
intersection[{p_, q_}] := Module[{min}, min = Min[Length /@ {p, q}]; Total[Min /@ Transpose@{Take[p, min], Take[q, min]}] ]; intersections@k_ := intersections@k = Module[{ip = IntegerPartitions[k]}, Table[intersection@{ip[[m]], ip[[n]]}, {m, PartitionsP@k}, {n, PartitionsP@k}]]; a[n_]:=MatrixRank@intersections@n; Table[MatrixRank@intersections@n, {n, 20}]
Comments