A179185 Rank transform of the sequence floor(n*sqrt(2)); complement of A186543.

1, 3, 5, 6, 9, 10, 11, 14, 16, 17, 19, 20, 23, 24, 27, 28, 30, 32, 33, 35, 37, 39, 40, 42, 44, 46, 48, 49, 52, 53, 55, 57, 58, 60, 62, 64, 65, 67, 69, 71, 72, 75, 76, 78, 80, 82, 84, 85, 87, 89, 91, 93, 94, 96, 98, 100, 101, 103, 105, 106, 109, 110, 112, 114, 115, 117, 119, 121, 123, 124, 126, 128, 130, 132, 134, 136, 137, 139, 141

Offset: 1

Author

Clark Kimberling, Mar 07 2011

Keywords

• nonn

Comments

See A187224.

Crossrefs

Cf. A187224, A186543.

Programs

Mathematica

m = 2^(1/2);
seqA = Table[Floor[m*n], {n, 1, 180}]  (* A001951 *)
seqB = Table[n, {n, 1, 80}];  (* 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]]  (* A179185 *)
Complement[Range[Length[seqA]], limseqU]  (* A186543 *)
(* by Peter J. C. Moses, Mar 09 2011 *)