A187833 Rank transform of the sequence floor(3n/2-1/2); complement of A187834.

1, 3, 5, 6, 9, 10, 12, 14, 16, 17, 19, 21, 23, 25, 27, 28, 30, 32, 34, 36, 38, 39, 41, 43, 45, 46, 49, 50, 52, 54, 56, 58, 59, 61, 63, 65, 67, 68, 70, 72, 74, 76, 78, 79, 81, 83, 85, 87, 89, 90, 92, 94, 96, 98, 100, 101, 103, 105, 107, 108, 111, 112, 114, 116, 118, 119, 121, 123, 125, 127, 129, 130, 133, 134, 136, 138, 140, 141, 143, 145, 147, 149

Offset

1,2

Comments

A187833 is the rank transform of the sequence A001631 of positive integers not divisible by 3. For a discussion of rank transforms, see A187224.

Links

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

Mathematica

seqA = Table[Floor[3n/2-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]] (*A187833*)
Complement[Range[Length[seqA]], limseqU]  (*A187834*)
(*by Peter J. C. Moses, Mar 13 2011*)

Crossrefs

Cf. A187224, A187834.

Sequence in context: A286061 A288308 A187574 * A081121 A187837 A325428

Adjacent sequences: A187830 A187831 A187832 * A187834 A187835 A187836

Keyword

nonn

Author

Clark Kimberling, Mar 13 2011

Status

approved