A187226 Rank transform of the sequence floor(n/4); complement of A187227.

1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 14, 15, 16, 17, 19, 20, 21, 22, 24, 25, 26, 27, 29, 30, 31, 32, 34, 35, 36, 37, 39, 40, 41, 42, 43, 44, 45, 46, 48, 49, 50, 51, 53, 54, 55, 56, 58, 59, 60, 61, 63, 64, 65, 66, 67, 68, 69, 70, 72, 73, 74, 75, 77, 78, 79, 80, 82, 83, 84, 85, 87, 88, 89, 90, 91, 92, 93, 94, 96, 97, 98, 99, 101, 102, 103, 104, 106, 107, 108, 109, 111, 112, 113, 114, 115, 116, 117, 118, 120, 121, 122, 123, 125, 126, 127, 128, 130

Offset: 1

Author

Clark Kimberling, Mar 07 2011

Keywords

• nonn

Comments

See A187224.

Crossrefs

Cf. A187224, A187227

Programs

Mathematica

seqA=Table[Floor[n/4],{n,1,220}] (*A002265 essentially *)
seqB=Table[n,{n,1,120}];(*A000027*)jointRank[{seqA_,seqB_}]:={Flatten@Position[#1,{,1}],Flatten@Position[#1,{,2}]}&[Sort@Flatten[{{#1,1}&/@seqA,{#1,2}&/@seqB},1]];
limseqU=FixedPoint[jointRank[{seqA,#1[[1]]}]&,jointRank[{seqA,seqB}]][[1]] (*A187226*)
Complement[Range[Length[seqA]],limseqU] (*A187227*)
(*by Peter J. C. Moses, Mar 07 2011*)