A096573 Number of fixed points of mirroring operation on solid partitions.

1, 2, 4, 8, 13, 24, 39, 68, 110, 182, 288, 468, 728, 1150, 1770, 2751, 4175, 6388, 9597, 14495, 21571, 32200, 47498

Offset: 1

Author

Wouter Meeussen, Jun 27 2004

Keywords

• nonn
• more

Comments

Uses function "solidformBTK" from link below.

Examples

			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.
		

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.

Crossrefs

Cf. A000293, A094504, A094508, A096272, A096574, A096575, A096576, A096577, A096578, A096579, A096580, A096581, A119266.

Programs

Mathematica

Tr/@Table[Count[solidformBTK[par],arg_z/;flip[arg]==arg],{n,20},{par,IntegerPartitions[n]}] (* Wouter Meeussen, Feb 05 2025  *)

Extensions

a(16)-a(23) from Wouter Meeussen, Feb 05 2025