A187899 Rank transform of the sequence floor((2-sqrt(2))n); complement of A187900.

1, 2, 3, 5, 6, 8, 10, 11, 12, 13, 15, 17, 18, 19, 20, 22, 23, 24, 26, 27, 29, 30, 32, 34, 35, 36, 37, 39, 40, 41, 43, 44, 46, 47, 49, 51, 52, 53, 54, 56, 58, 59, 61, 62, 63, 64, 66, 68, 69, 70, 71, 73, 75, 76, 77, 78, 80, 81, 82, 84, 85, 87, 88, 90, 92, 93, 94, 95, 97, 99, 100, 102, 103, 104, 105, 107, 109, 110, 111, 112, 114, 116, 117, 118, 119, 121, 122, 123, 125, 126, 128, 129, 131, 133

Offset

1,2

Comments

See A187224.

Links

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

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]] (*A187899*)
Complement[Range[Length[seqA]], limseqU]  (*A187900*)
(*by Peter J. C. Moses, Mar 13 2011*)

Crossrefs

Cf. A187224, A187900.

Sequence in context: A187897 A187319 A095976 * A024609 A167056 A131614

Adjacent sequences: A187896 A187897 A187898 * A187900 A187901 A187902

Keyword

nonn

Author

Clark Kimberling, Mar 15 2011

Status

approved