A187837 Rank transform of the sequence floor(rn/2-1/2), where r=(1+sqrt(5))/2 (the golden ratio); complement of A187838.

1, 3, 5, 6, 9, 10, 12, 14, 16, 18, 20, 21, 23, 26, 27, 29, 31, 33, 35, 36, 38, 40, 42, 44, 46, 48, 50, 51, 53, 55, 57, 59, 61, 63, 65, 66, 68, 70, 72, 74, 75, 78, 80, 81, 83, 85, 87, 89, 90, 92, 95, 96, 98, 100, 102, 104, 106, 108, 109, 111, 113, 115, 117, 119, 120, 122, 124, 126, 128, 130, 132, 133, 135, 137, 139, 141, 143, 145, 147, 148, 150

Offset

1,2

Comments

See A187224.

Links

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

Mathematica

r=(1+5^(1/2))/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]] (*A187837*)
Complement[Range[Length[seqA]], limseqU]  (*A187838*)
(*by Peter J. C. Moses, Mar 13 2011*)

Crossrefs

Cf. A187224, A187838.

Sequence in context: A187574 A187833 A081121 * A325428 A239064 A227455

Adjacent sequences: A187834 A187835 A187836 * A187838 A187839 A187840

Keyword

nonn

Author

Clark Kimberling, Mar 13 2011

Status

approved