A141285 = Cases[Import["https://oeis.org/A141285/b141285.txt", "Table"], {_, _}][[All, 2]]; A194446 = Cases[Import["https://oeis.org/A194446/b194446.txt", "Table"], {_, _}][[All, 2]]; A206437 = Cases[Import["https://oeis.org/A206437/b206437.txt", "Table"], {_, _}][[All, 2]]; diagram[n_] := Module[{y = PartitionsP[n], l, iy, in}, If[n > 28, Print["n>28 is not supported by bfile sizes listed above"]; Exit[]]; l = ConstantArray[Null, {y, n}]; c = 1; For[iy = y, iy >= 1, iy--, For[in = 1, in <= A194446[[y - iy + 1]], in++, l[[iy + in - 1, A141285[[y - iy + 1]]]] = A206437[[c++]]]]; Grid[l, Frame -> {None, None, Table[{{y + 1 - i, y + A194446[[i]] - i}, {1, A141285[[i]]}} -> True, {i, y}]}, Spacings -> {1.7, 1}]]; diagram[8] (* ~~~~ *)