A187415 Rank transform of the sequence floor(n*(-1+sqrt(5))); complement of A187416.

1, 3, 4, 6, 8, 10, 11, 13, 15, 17, 18, 20, 22, 23, 25, 27, 29, 30, 32, 34, 35, 37, 39, 40, 42, 44, 46, 47, 49, 51, 53, 54, 56, 58, 60, 61, 63, 64, 67, 68, 70, 71, 73, 75, 77, 78, 80, 82, 83, 85, 87, 89, 91, 92, 93, 96, 97, 99, 101, 103, 104, 106, 107, 110, 111, 113, 114, 117, 118, 120, 121, 123, 125, 126, 128, 130, 132, 133, 135, 137, 139, 140, 142, 143, 146, 147, 149, 151

Offset

1,2

Comments

See A187224.

Links

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

Mathematica

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

Crossrefs

Cf. A187224, A187416.

Sequence in context: A029900 A003257 A184006 * A047298 A184748 A184742

Adjacent sequences: A187412 A187413 A187414 * A187416 A187417 A187418

Keyword

nonn

Author

Clark Kimberling, Mar 09 2011

Status

approved