|
| |
|
|
A096573
|
|
Number of fixed points of mirroring operation on solid partitions.
|
|
9
| |
|
|
1, 2, 4, 8, 13, 24, 39, 68, 110, 182, 288, 468, 728, 1150, 1770
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| Uses function "solidformBTK" from link above.
|
|
|
LINKS
| Wouter Meeussen, Solid Partitions Mathematica functions
|
|
|
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
| flip[pili_List] := Module[{wide, it}, wide =Length[pili[[1]]]; it = Join[ #, Table[0, {wide - Length[ # ]}]] & /@ pili; DeleteCases[ Transpose[it], 0 | {}, -1]]; Table[sn = Sort@Flatten[solidformBTK /@ Partitions[n]]; Frequencies[Length /@ ToCycles[Ordering[Map[flip@ # &, sn, {2}]]] ], {n, 1, 15}]
|
|
|
CROSSREFS
| Cf. A000293, A094504, A094508, A096272, A096574, A096575, A096576, A096577, A096578, A096579, A096580, A096581.
Sequence in context: A023600 A074467 A018066 * A000077 A054164 A102704
Adjacent sequences: A096570 A096571 A096572 * A096574 A096575 A096576
|
|
|
KEYWORD
| more,nonn
|
|
|
AUTHOR
| Wouter Meeussen (wouter.meeussen(AT)pandora.be), Jun 27 2004
|
| |
|
|
