OFFSET
1,4
COMMENTS
Rotation has permutation cycle length 1 or 3. Uses function "solidformBTK" from link above.
Is this the same sequence as A002722? [From R. J. Mathar, Sep 04 2008]
LINKS
Wouter Meeussen, Solid Partitions Mathematica functions
EXAMPLE
Solid partition [{{3, 1, 1, 1}, {3}}, {{2, 1}}, {{1}}, {{1}}, {{1}}] rotates into [{{4, 1}, {1, 1}, {1, 1}}, {{2}, {1}}, {{1}}, {{1}}, {{1}}] by rotating each layer as a plane partition.
MATHEMATICA
turn[par_List] := Module[{maks, wide, it}, wide = Length[par[[1]]]; maks = Max[Length[par], wide, Flatten[par]]; it = Join[ #, Table[0, {wide - Length[ # ]}]] & /@( par /. i_Integer :> Table[If[w > i, 0, 1], {w, maks}]); DeleteCases[DeleteCases[Transpose[Apply[Plus, it, 1]], 0 | {}, -1], 0|{}, -1]]; Table[sn =Sort@Flatten[solidformBTK /@ Partitions[n]]; Frequencies[Length /@ ToCycles[Ordering[Map[turn @ # &, sn, {2}]]] ], {n, 1, 15}]
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Wouter Meeussen, Jun 27 2004
STATUS
approved