A187475 -id:A187475 - cp's OEIS frontend

A187474 Rank transform of the sequence floor(n*(Pi-2)); complement of A187475.

1, 3, 4, 6, 8, 9, 11, 13, 15, 16, 18, 19, 21, 22, 25, 26, 28, 30, 31, 33, 35, 36, 38, 40, 41, 43, 44, 46, 48, 50, 51, 53, 55, 56, 58, 60, 62, 63, 65, 67, 68, 70, 72, 73, 75, 77, 78, 80, 81, 84, 85, 87, 88, 90, 91, 93, 95, 97, 98, 100, 102, 103, 105, 107, 109, 110, 112, 113

Offset: 1

Clark Kimberling, Mar 10 2011

nonn

See A187224.

Cf. A187224, A187475.

m = Pi-2;
seqA = Table[Floor[m*n], {n, 1, 180}]  (* A187320 *)
seqB = Table[n, {n, 1, 80}];           (* 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]]                                     (* A187474 *)
Complement[Range[Length[seqA]], limseqU]  (* A187475 *)
(* Peter J. C. Moses, Mar 10 2011 *)

A187484 Rank transform of the sequence A004526=(0,0,1,1,2,2,3,3,4,4,...); complement of A187475.

Original entry on oeis.org

1, 2, 3, 4, 6, 7, 9, 10, 12, 13, 15, 16, 17, 18, 20, 21, 23, 24, 25, 26, 28, 29, 31, 32, 33, 34, 36, 37, 39, 40, 41, 42, 44, 45, 47, 48, 50, 51, 53, 54, 55, 56, 58, 59, 61, 62, 63, 64, 66, 67, 69, 70, 72, 73, 75, 76, 77, 78, 80, 81, 83, 84, 85, 86, 88, 89, 91, 92, 94, 95, 97, 98, 99, 100, 102, 103, 105, 106, 107, 108, 110, 111, 113, 114, 116, 117, 119, 120, 121, 122, 124, 125, 127, 128, 129, 130

Offset: 1

Clark Kimberling, Mar 10 2011

nonn

See A187224 and A004526.

Cf. A187422, A187485, A004526.

seqA = Table[Floor[(n-1)/2], {n, 1, 180}] (* A004526 *)
seqB = Table[n, {n, 1, 80}];            (* 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]]                                     (* A187484 *)
Complement[Range[Length[seqA]], limseqU]  (* A187475 *)
(* by Peter J. C. Moses, Mar 10 2011 *)

cp's OEIS Frontend

A187474 Rank transform of the sequence floor(n*(Pi-2)); complement of A187475.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica