A187349 Rank transform of the sequence floor(9n/5); complement of A187348.

1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 20, 23, 24, 27, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 49, 51, 54, 56, 57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 78, 80, 82, 85, 87, 88, 90, 92, 94, 96, 98, 100, 102, 104, 106, 107, 109, 111, 113, 116, 117, 119, 121, 123, 125

Offset

1,2

Comments

See A187224.

Links

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

Mathematica

seqA=Table[Floor[9n/5], {n, 1, 220}] (* A187318 *)
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]] (* A187349 *)
Complement[Range[Length[seqA]], limseqU] (* A187350 *)
(* by Peter J. C. Moses, Mar 07 2011 *)

Crossrefs

Cf. A187224, A187350.

Sequence in context: A172273 A329835 A356929 * A238704 A338742 A251238

Adjacent sequences: A187346 A187347 A187348 * A187350 A187351 A187352

Keyword

nonn

Author

Clark Kimberling, Mar 08 2011

Status

approved