A179185 Rank transform of the sequence floor(n*sqrt(2)); complement of A186543.
1, 3, 5, 6, 9, 10, 11, 14, 16, 17, 19, 20, 23, 24, 27, 28, 30, 32, 33, 35, 37, 39, 40, 42, 44, 46, 48, 49, 52, 53, 55, 57, 58, 60, 62, 64, 65, 67, 69, 71, 72, 75, 76, 78, 80, 82, 84, 85, 87, 89, 91, 93, 94, 96, 98, 100, 101, 103, 105, 106, 109, 110, 112, 114, 115, 117, 119, 121, 123, 124, 126, 128, 130, 132, 134, 136, 137, 139, 141
Offset: 1
Keywords
Programs
-
Mathematica
m = 2^(1/2); seqA = Table[Floor[m*n], {n, 1, 180}] (* A001951 *) 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]] (* A179185 *) Complement[Range[Length[seqA]], limseqU] (* A186543 *) (* by Peter J. C. Moses, Mar 09 2011 *)
Comments