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,1

Comments

See A187224.

Links

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

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 *)

Crossrefs

Cf. A187224, A187839.

Sequence in context: A013647 A255068 A183987 * A187904 A179543 A077471

Adjacent sequences: A187837 A187838 A187839 * A187841 A187842 A187843

Keyword

nonn

Author

Clark Kimberling, Mar 13 2011

Status

approved