A187228 Rank transform of the sequence floor(3n/4); complement of A187229.

1, 2, 4, 6, 7, 8, 10, 11, 12, 14, 16, 18, 19, 20, 22, 24, 25, 27, 28, 30, 31, 32, 34, 35, 36, 38, 40, 42, 43, 44, 46, 47, 48, 50, 52, 53, 54, 56, 58, 59, 60, 62, 64, 66, 67, 68, 70, 72, 73, 75, 76, 78, 79, 80, 82, 83, 84, 86, 88, 90, 91, 92, 94, 96, 97, 99, 100, 102, 103, 104, 106, 108, 109, 111, 112, 114, 115, 116, 118, 120, 121, 123, 124, 126, 127, 128, 130, 131, 132, 134, 136, 138, 139, 140, 142, 143, 144, 146, 148, 149, 150

Offset

1,2

Comments

See A187224.

Links

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

Mathematica

seqA=Table[Floor[3n/4], {n, 1, 220}] (*A057353*)
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]] (*A187228*)
Complement[Range[Length[seqA]], limseqU] (*A187229*)
(*by Peter J. C. Moses, Mar 07 2011*)

Crossrefs

Cf. A187224, A187229.

Sequence in context: A135673 A285667 A187568 * A187905 A121538 A339508

Adjacent sequences: A187225 A187226 A187227 * A187229 A187230 A187231

Keyword

nonn

Author

Clark Kimberling, Mar 07 2011

Status

approved