A187345 Rank transform of the sequence floor(7n/5); complement of A187346.

1, 3, 5, 6, 9, 10, 11, 14, 16, 17, 19, 20, 23, 24, 27, 28, 29, 32, 33, 35, 37, 39, 40, 42, 44, 46, 47, 49, 51, 53, 55, 56, 58, 60, 62, 64, 65, 67, 69, 71, 73, 74, 76, 78, 80, 81, 83, 85, 87, 89, 90, 92, 94, 96, 98, 99, 101, 103, 105, 107, 108, 110, 112, 113, 116, 117, 119

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A187224, A187346.

Sequence in context: A188163 A088359 A184413 * A179185 A270198 A133512

Adjacent sequences: A187342 A187343 A187344 * A187346 A187347 A187348

Keyword

nonn

Author

Clark Kimberling, Mar 08 2011

Status

approved