A036052 Product of the lengths of the cycle types of the permutation created by length sorting on the partitions of n.

1, 1, 1, 1, 2, 2, 6, 10, 60, 144, 348, 8526, 8930, 322560, 210540, 7296, 7001280, 3325069440, 176880000, 44528400, 6398154000, 74839427712000, 222108480000, 52321920, 1864464000, 5066300010240, 1338148188, 91406407293961987500

Offset

0,5

Links

Table of n, a(n) for n=0..27.

Prog

(PARI)
OrderCycs(v)={my(t=vector(#v), L=List()); for(i=1, #v, my(c=0, j=i); while(!t[j], t[j]=1; j=v[j]; c++); if(c, listput(L, c))); Vec(L)}
a(n)={my(u=vecsort([Vecsmall(Vecrev(p)) | p<-partitions(n)])); my(v=vecsort(u, (x, y)->lex(#x, #y), 1+4)); vecprod(Set(OrderCycs(v)))} \\ Andrew Howroyd, Sep 17 2019

Crossrefs

Cf. A036045-A036056.

Sequence in context: A260785 A153897 A103774 * A355207 A308260 A279212

Adjacent sequences: A036049 A036050 A036051 * A036053 A036054 A036055

Keyword

nonn

Author

Olivier Gérard

Extensions

Name changed to agree with data and a(0)=1 prepended by Andrew Howroyd, Sep 17 2019

Status

approved