A036053 Product of order of cycles of the permutation created by length sorting on the partitions of n.

1, 1, 1, 2, 4, 6, 10, 60, 288, 1044, 8526, 8930, 322560, 210540, 7296, 7001280, 6650138880, 353760000, 44528400, 6398154000, 74839427712000, 11993857920000, 52321920, 3728928000, 81060800163840, 1338148188, 91406407293961987500, 61965028873912320, 200407352308531200, 4156935025937400

Offset

1,4

Links

Table of n, a(n) for n=1..30.

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(OrderCycs(v))} \\ Andrew Howroyd, Sep 17 2019

Crossrefs

Cf. A036045-A036056.

Sequence in context: A085809 A073308 A058960 * A237816 A088906 A303752

Adjacent sequences: A036050 A036051 A036052 * A036054 A036055 A036056

Keyword

nonn

Author

Olivier Gérard

Extensions

a(27)-a(30) from Andrew Howroyd, Sep 17 2019

Status

approved