# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a036054
Showing 1-1 of 1

%I A036054 #12 Oct 21 2020 02:48:57
%S A036054 1,1,1,2,2,2,2,3,4,4,5,5,6,5,4,6,8,7,7,6,12,9,7,8,10,6,11,12,10,8,9,
%T A036054 10,13,12,14,10,16,9,10,11,10,10,8,10,10,18,14,22,10,15,9,15,12,9,14,
%U A036054 13,13,11,13,16,9,15,14,13,19,11,14,17,18,13,14,14,19
%N A036054 Number of different cycle lengths of the permutation created by length sorting on the partitions of n.
%o A036054 (PARI)
%o A036054 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)}
%o A036054 a(n)={my(u=vecsort([Vecsmall(Vecrev(p)) | p<-partitions(n)])); my(v=vecsort(u, (x,y)->lex(#x,#y), 1+4)); #Set(OrderCycs(v))} \\ _Andrew Howroyd_, Sep 17 2019
%Y A036054 Cf. A036045-A036056.
%K A036054 nonn
%O A036054 1,4
%A A036054 _Olivier Gérard_
%E A036054 a(31)-a(50) from _Andrew Howroyd_, Sep 17 2019
%E A036054 More terms from _Sean A. Irvine_, Oct 20 2020

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE