A187345 Rank transform of the sequence floor(7n/5); complement of A187346.
1, 3, 5, 6, 9, 10, 11, 14, 16, 17, 19, 20, 23, 24, 27, 28, 29, 32, 33, 35, 37, 39, 40, 42, 44, 46, 47, 49, 51, 53, 55, 56, 58, 60, 62, 64, 65, 67, 69, 71, 73, 74, 76, 78, 80, 81, 83, 85, 87, 89, 90, 92, 94, 96, 98, 99, 101, 103, 105, 107, 108, 110, 112, 113, 116, 117, 119
Offset: 1
Keywords
Programs
-
Mathematica
seqA=Table[Floor[7n/5], {n, 1, 220}] (* A047381 *) 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]] (* A187345 *) Complement[Range[Length[seqA]], limseqU] (* A187346 *) (*by Peter J. C. Moses, Mar 07 2011*)