1,2

By definition, A000293=A096580 + 2*A096581.

Wouter Meeussen, Solid Partitions Mathematica functions

Solid partition [{{3,1,1,1},{3}},{{2,1}},{{1}},{{1}},{{1}}] lapses (L) into

[{{4,1},{2},{1},{1},{1}},{{1,1},{1}},{{1,1}}], then into

[{{2,1,1,1,1},{2,1},{2}},{{1,1}},{{1}},{{1}}], further into

[{{5,2,1},{2},{1},{1}},{{1,1,1}}] and returns after L^4 to

[{{3,1,1,1},{3}},{{2,1}},{{1}},{{1}},{{1}}]

See link above.

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

Sequence in context: A148172 A148173 A148174 this_sequence A151258 A148175 A148176

Adjacent sequences: A096578 A096579 A096580 this_sequence A096582 A096583 A096584

more,nonn

Wouter Meeussen (wouter.meeussen(AT)pandora.be), Jun 27 2004