A187230 Rank transform of the sequence floor(5n/4); complement of A187231.

1, 3, 4, 7, 8, 9, 11, 14, 15, 17, 18, 20, 22, 23, 25, 27, 29, 30, 32, 34, 36, 37, 39, 41, 43, 44, 46, 48, 49, 51, 53, 55, 56, 58, 59, 62, 63, 65, 66, 69, 70, 72, 73, 75, 77, 79, 80, 83, 84, 85, 87, 89, 91, 93, 94, 96, 98, 99, 101, 103, 105, 106, 108, 110, 112, 113, 114, 117, 119, 120, 122, 124, 125, 127, 128, 131, 132, 134, 135, 138, 139, 141, 142, 144, 146, 148, 149, 151, 153, 154, 156, 159, 160, 161, 163, 165

Offset

1,2

Comments

See A187224.

Links

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

Mathematica

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

Crossrefs

Cf. A187224, A187231.

Sequence in context: A047545 A296352 A192052 * A187901 A220487 A110133

Adjacent sequences: A187227 A187228 A187229 * A187231 A187232 A187233

Keyword

nonn

Author

Clark Kimberling, Mar 07 2011

Status

approved