A187840 Complement of A187839.

2, 5, 6, 10, 11, 13, 16, 18, 20, 23, 25, 27, 29, 32, 34, 36, 39, 40, 43, 45, 48, 49, 53, 54, 57, 59, 61, 64, 66, 67, 70, 72, 75, 77, 79, 81, 84, 87, 88, 91, 93, 95, 97, 100, 102, 105, 106, 109, 110, 113, 115, 118, 120, 122, 125, 127, 129, 131, 133, 136, 138, 141, 143, 145, 148, 149, 152, 154, 157, 158, 161, 163, 165, 168, 170

Offset: 1

Author

Clark Kimberling, Mar 13 2011

Keywords

• nonn

Comments

See A187224.

Links

• G. C. Greubel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A187224, A187839.

Programs

Mathematica

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