A187226 Rank transform of the sequence floor(n/4); complement of A187227.

1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 14, 15, 16, 17, 19, 20, 21, 22, 24, 25, 26, 27, 29, 30, 31, 32, 34, 35, 36, 37, 39, 40, 41, 42, 43, 44, 45, 46, 48, 49, 50, 51, 53, 54, 55, 56, 58, 59, 60, 61, 63, 64, 65, 66, 67, 68, 69, 70, 72, 73, 74, 75, 77, 78, 79, 80, 82, 83, 84, 85, 87, 88, 89, 90, 91, 92, 93, 94, 96, 97, 98, 99, 101, 102, 103, 104, 106, 107, 108, 109, 111, 112, 113, 114, 115, 116, 117, 118, 120, 121, 122, 123, 125, 126, 127, 128, 130

Offset

1,2

Comments

See A187224.

Links

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

Mathematica

seqA=Table[Floor[n/4], {n, 1, 220}] (*A002265 essentially *)
seqB=Table[n, {n, 1, 120}]; (*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]] (*A187226*)
Complement[Range[Length[seqA]], limseqU] (*A187227*)
(*by Peter J. C. Moses, Mar 07 2011*)

Crossrefs

Cf. A187224, A187227

Sequence in context: A121166 A249017 A214879 * A026470 A014133 A070115

Adjacent sequences: A187223 A187224 A187225 * A187227 A187228 A187229

Keyword

nonn

Author

Clark Kimberling, Mar 07 2011

Status

approved