login
Rank transform of the sequence floor(7n/4); complement of A187233.
3

%I #11 Feb 10 2014 21:27:35

%S 1,3,5,7,9,11,13,15,16,19,20,23,24,26,28,30,32,34,36,38,39,41,44,46,

%T 47,49,51,53,55,57,59,61,62,64,66,69,70,72,74,76,78,80,82,84,85,87,89,

%U 91,93,95,97,99,101,103,105,107,108,110,112,114,116,118,120,122,124,126,128,130,131,133,135,137,139,141,143,145,147,149,151,153,154,156,158,160,162,164,166,168,170,172,174,176,177,179,181,183

%N Rank transform of the sequence floor(7n/4); complement of A187233.

%C See A187224. A187232(n)=A187907(n) for n=1,2,...,20; A187232(21)=39 and A187907(21)=40.

%t seqA=Table[Floor[7n/4],{n,1,220}] (*A047392*)

%t seqB=Table[n,{n,1,220}];(*A000027*)

%t jointRank[{seqA_,seqB_}]:={Flatten@Position[#1,{_,1}],Flatten@Position[#1,{_,2}]}&[Sort@Flatten[{{#1,1}&/@seqA,{#1,2}&/@seqB},1]];

%t limseqU=FixedPoint[jointRank[{seqA,#1[[1]]}]&,jointRank[{seqA,seqB}]][[1]] (*A187232*)

%t Complement[Range[Length[seqA]],limseqU] (*A187233*)

%t (*by _Peter J. C. Moses_, Mar 07 2011*)

%Y Cf. A187224, A187233.

%K nonn

%O 1,2

%A _Clark Kimberling_, Mar 07 2011