|
Search: id:A096573
|
|
|
| A096573 |
|
Number of fixed points of mirroring operation on solid partitions. |
|
+0
10
|
|
| 1, 2, 4, 8, 13, 24, 39, 68, 110, 182, 288, 468, 728, 1150, 1770
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
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 this_sequence A000077 A054164 A102704
Adjacent sequences: A096570 A096571 A096572 this_sequence A096574 A096575 A096576
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Wouter Meeussen (wouter.meeussen(AT)pandora.be), Jun 27 2004
|
|
|
Search completed in 0.002 seconds
|
