OFFSET
0,4
LINKS
EXAMPLE
The a(8) = 14 tableaux:
8 1 7 2 6 3 5 1 2 5 1 3 4
.
7 6 5 2 5 3 4 2 3
1 2 3 1 1 1 2
.
5 4
2 3
1 1
MATHEMATICA
primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
sqfacs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[sqfacs[n/d], Min@@#>=d&]], {d, Select[Rest[Divisors[n]], SquareFreeQ]}]];
Table[Sum[Length[Select[Reverse/@Sort/@Map[primeMS, sqfacs[y], {2}], And@@Greater@@@DeleteCases[Transpose[PadRight[#]], 0, {2}]&]], {y, Times@@Prime/@#&/@IntegerPartitions[n]}], {n, 10}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, Jan 18 2019
STATUS
approved