cp's OEIS Frontend

A187319 Rank transform of the sequence floor(n/sqrt(3)); complement of A187410.

%I A187319 #9 Feb 10 2014 21:30:54
%S A187319 1,2,3,5,6,8,10,11,12,13,15,16,18,19,20,22,23,24,25,27,29,30,32,33,35,
%T A187319 36,37,39,40,42,43,44,46,47,49,50,52,53,54,56,57,59,60,62,63,65,66,67,
%U A187319 69,70,71,73,74,76,77,78,79,81,83,84,85,86,88,89,91,93,94,95,96,98,99,101,102,103,105,106,108,110,111,112,113,115,116,118,119,120,122,123,125,126,127,129
%N A187319 Rank transform of the sequence floor(n/sqrt(3)); complement of A187410.
%C A187319 See A187224.
%t A187319 m = 3^(-1/2);
%t A187319 seqA = Table[Floor[m*n], {n, 1, 180}]  (* A097337 *)
%t A187319 seqB = Table[n, {n, 1, 80}];                   (* A000027 *)
%t A187319 jointRank[{seqA_, seqB_}] := {Flatten@Position[#1, {_, 1}],
%t A187319 Flatten@Position[#1, {_, 2}]} &[Sort@Flatten[{{#1, 1} & /@ seqA,
%t A187319 {#1, 2} & /@ seqB}, 1]];
%t A187319 limseqU = FixedPoint[jointRank[{seqA, #1[[1]]}] &, jointRank
%t A187319 [{seqA, seqB}]][[1]]                                      (* A187319 *)
%t A187319 Complement[Range[Length[seqA]], limseqU]  (* A187410 *)
%t A187319 (* by _Peter J. C. Moses_, Mar 09 2011 *)
%Y A187319 Cf. A187224, A187410.
%K A187319 nonn
%O A187319 1,2
%A A187319 _Clark Kimberling_, Mar 08 2011