cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A290959 Matrix rank of the number of dots in the pairwise intersections of Ferrers diagrams.

This page as a plain text file.
%I A290959 #13 Aug 16 2017 23:48:02
%S A290959 1,2,3,5,7,11,13,17,20,24,26,32,34,38,42,47,49,55,57,63,67,71,73,81,
%T A290959 84,88
%N A290959 Matrix rank of the number of dots in the pairwise intersections of Ferrers diagrams.
%C A290959 Let f(q, r) be the number of dots in the intersection of the Ferrers diagrams of the integer partitions q and r of n. Let a(n) be the matrix rank of the p(n) by p(n) matrix of f(q, r) as q and r range over the partitions of n. Conjecture: For n > 3, a(n+1) - a(n) = A000005(n+2), the number of divisors of n. The same is true empirically for the union, complement, and set difference. Note that A000005 count rectangular partitions.
%t A290959 intersection[{p_, q_}] := Module[{min},
%t A290959   min = Min[Length /@ {p, q}];
%t A290959   Total[Min /@ Transpose@{Take[p, min], Take[q, min]}]
%t A290959   ];
%t A290959 intersections@k_ := intersections@k = Module[{ip = IntegerPartitions[k]},
%t A290959    Table[intersection@{ip[[m]], ip[[n]]}, {m, PartitionsP@k}, {n,
%t A290959      PartitionsP@k}]];
%t A290959 a[n_]:=MatrixRank@intersections@n;
%t A290959 Table[MatrixRank@intersections@n, {n, 20}]
%Y A290959 Cf. A000005, A218904, A218905, A218906, A218907, A246581.
%K A290959 nonn,more
%O A290959 1,2
%A A290959 _George Beck_, Aug 14 2017