cp's OEIS Frontend

A035399 Limit of the position of the n-th partition without repetition in the list of all integer partitions sorted in reverse lexicographic order.

%I A035399 #15 Dec 28 2015 05:33:08
%S A035399 1,2,3,5,6,8,9,13,14,15,20,21,22,25,31,32,33,35,36,46,47,48,50,51,54,
%T A035399 68,69,70,72,73,75,76,81,98,99,100,102,103,105,106,111,112,120,140,
%U A035399 141,142,144,145,147,148,152,153,154,160,163,196,197,198,200,201,203
%N A035399 Limit of the position of the n-th partition without repetition in the list of all integer partitions sorted in reverse lexicographic order.
%H A035399 Wouter Meeussen, <a href="/A035399/a035399.txt">Table of n, a(n) for n = 1..207</a>
%e A035399 For i=5, the partitions of i are 5, 41, 32, 311, 221, 2111, 11111.
%e A035399 The partitions without repetition are at position 1,2 and 3, corresponding to the first three terms of the sequence.
%e A035399 For i=10, the partitions of i begin 10, 91, 82, 811, 73, 721, 7111, 64, 631, 622, ...
%e A035399 The partitions without repetition are at position 1,2,3,5,6,8,9, ...
%t A035399 it=Table[Flatten[Position[IntegerPartitions[n],q_List/;  Sort[q]==Union[q] ,1]],{n,36,36+2,2}];
%t A035399 {{diffat}}=Position[Take[Last[it],Length[First[it] ] ] - First[it] , a_ /;(a!=0),1,1]; Take[First[it],diffat -1 ]
%Y A035399 Cf. A000009, A035400, A186130, A186131.
%K A035399 nonn
%O A035399 1,2
%A A035399 _Olivier Gérard_
%E A035399 Example and explanations from _Olivier Gérard_, Feb 13 2011