OFFSET
1,2
COMMENTS
Uses function "solidformBTK" from link below.
LINKS
Wouter Meeussen, Mma functions for plane and solid partitions
Luigi Togliani, Forms of Crossed and Simple Polygons, Science & Philosophy (2019) Vol. 7, No. 2, 71-82.
EXAMPLE
Solid partition [{{3, 1, 1, 1}, {3}}, {{2, 1}}, {{1}}, {{1}}, {{1}}] mirrors into [{{3, 3}, {1}, {1}, {1}}, {{2}, {1}}, {{1}}, {{1}}, {{1}}] by mirroring each layer as a plane partition.
MATHEMATICA
Tr/@Table[Count[solidformBTK[par], arg_z/; flip[arg]==arg], {n, 20}, {par, IntegerPartitions[n]}] (* Wouter Meeussen, Feb 05 2025 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Wouter Meeussen, Jun 27 2004
EXTENSIONS
a(16)-a(20) from Wouter Meeussen, Feb 05 2025
STATUS
approved