A187907 -id:A187907 - cp's OEIS frontend

A187908 Complement of A187907.

2, 4, 6, 8, 10, 12, 14, 17, 18, 21, 22, 25, 27, 29, 31, 33, 35, 37, 39, 42, 44, 45, 47, 50, 52, 54, 56, 58, 60, 62, 65, 67, 69, 70, 72, 75, 77, 79, 81, 83, 85, 87, 90, 92, 94, 96, 98, 100, 102, 104, 106, 108, 110, 112, 115, 117, 119, 121, 123, 125, 127, 129, 131, 133, 135, 137, 140, 142, 144, 146, 148, 150, 152

Offset: 1

Clark Kimberling, Mar 15 2011

nonn

A187908 gives the ranks of the numbers in the rank transform R(a) when all the numbers in a and R(a) are jointly ranked, where a=A187907. For the definition and basic properties of rank transform, see A187224.

A187233(n)=A187908(n) for n=1,2,...,18; A187233(19)=40 and A187908(19)=39. The closeness of A187908 to A187233 and the closeness of their complements result from the closeness of 7/4 to 4-sqrt(5).

Cf. A187224, A187225, A187907.

Mathematica
```
(See A187907.)
```

A187232 Rank transform of the sequence floor(7n/4); complement of A187233.

Original entry on oeis.org

1, 3, 5, 7, 9, 11, 13, 15, 16, 19, 20, 23, 24, 26, 28, 30, 32, 34, 36, 38, 39, 41, 44, 46, 47, 49, 51, 53, 55, 57, 59, 61, 62, 64, 66, 69, 70, 72, 74, 76, 78, 80, 82, 84, 85, 87, 89, 91, 93, 95, 97, 99, 101, 103, 105, 107, 108, 110, 112, 114, 116, 118, 120, 122, 124, 126, 128, 130, 131, 133, 135, 137, 139, 141, 143, 145, 147, 149, 151, 153, 154, 156, 158, 160, 162, 164, 166, 168, 170, 172, 174, 176, 177, 179, 181, 183

Offset: 1

Clark Kimberling, Mar 07 2011

nonn

See A187224. A187232(n)=A187907(n) for n=1,2,...,20; A187232(21)=39 and A187907(21)=40.

Cf. A187224, A187233.

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

cp's OEIS Frontend

A187908 Complement of A187907.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica