A187903 Rank transform of the sequence floor((2-1/sqrt(2))n); complement of A187904.

1, 3, 4, 7, 8, 9, 12, 14, 15, 16, 18, 20, 22, 24, 26, 27, 29, 31, 32, 34, 36, 38, 39, 41, 43, 45, 46, 48, 50, 51, 54, 55, 57, 58, 60, 62, 64, 66, 67, 69, 71, 72, 74, 76, 78, 80, 81, 83, 85, 86, 88, 90, 92, 93, 95, 97, 99, 100, 102, 104, 105, 107, 109, 111, 113, 114, 116, 118, 120, 121, 123, 125, 127, 128, 130, 132, 133, 135, 137, 139, 140, 143, 144

Offset

1,2

Comments

See A187224.

Links

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

Mathematica

r=2-2^(-1/2);
seqA = Table[Floor[r*n], {n, 1, 220}]
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]] (*A187903*)
Complement[Range[Length[seqA]], limseqU]  (*A187904*)
(*by Peter J. C. Moses, Mar 15 2011*)

Crossrefs

Cf. A187224, A187904.

Sequence in context: A220487 A110133 A205647 * A187839 A183988 A175054

Adjacent sequences: A187900 A187901 A187902 * A187904 A187905 A187906

Keyword

nonn

Author

Clark Kimberling, Mar 15 2011

Status

approved