login
This site is supported by donations to The OEIS Foundation.

 

Logo

Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS".
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A187582 Rank transform of the sequence 3*floor(n/2); complement of A187583. 2
1, 3, 4, 7, 8, 11, 12, 14, 15, 18, 19, 21, 22, 25, 26, 29, 30, 33, 34, 36, 37, 39, 40, 43, 44, 47, 48, 51, 52, 55, 56, 58, 59, 61, 62, 65, 66, 69, 70, 73, 74, 77, 78, 80, 81, 83, 84, 87, 88, 91, 92, 94, 95, 98, 99, 102, 103, 105, 106, 109, 110, 113, 114, 117, 118, 120, 121, 123, 124, 127, 128, 131, 132, 135, 136, 138, 139, 141, 142, 145, 146, 149, 150, 153, 154, 157, 158, 160, 161 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

See A187224.

LINKS

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

MATHEMATICA

seqA = Table[3*Floor[n/2], {n, 1, 220}]

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]] (*A187582*)

Complement[Range[Length[seqA]], limseqU]  (*A187583*)

(*by Peter J. C. Moses, Mar 11 2011*)

CROSSREFS

Cf. A187224, A187583.

Sequence in context: A213373 A229081 A070874 * A288553 A295771 A285503

Adjacent sequences:  A187579 A187580 A187581 * A187583 A187584 A187585

KEYWORD

nonn

AUTHOR

Clark Kimberling, Mar 11 2011

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified December 13 16:57 EST 2017. Contains 295959 sequences.