A187343 Rank transform of the sequence floor(6n/5); complement of A187344.

1, 3, 4, 6, 8, 10, 11, 13, 14, 17, 18, 20, 22, 23, 25, 27, 28, 30, 31, 34, 35, 37, 38, 40, 42, 44, 46, 47, 48, 51, 52, 54, 56, 57, 59, 61, 62, 64, 65, 68, 70, 71, 72, 74, 76, 78, 79, 81, 83, 85, 86, 88, 90, 91, 94, 95, 96, 98, 99, 102, 104, 105, 107, 108, 110, 112, 114, 115

Offset

1,2

Comments

See A187224.

Links

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

Mathematica

seqA=Table[Floor[6n/5], {n, 1, 220}] (* A047226 *)
seqB=Table[n, {n, 1, 220}];          (* 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]]                  (* A187343 *)
Complement[Range[Length[seqA]], limseqU] (* A187344 *)
(*by Peter J. C. Moses, Mar 07 2011*)

Crossrefs

Cf. A187224, A187344.

Sequence in context: A260479 A285344 A342740 * A189573 A029900 A003257

Adjacent sequences: A187340 A187341 A187342 * A187344 A187345 A187346

Keyword

nonn

Author

Clark Kimberling, Mar 08 2011

Status

approved