The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A179185 Rank transform of the sequence floor(n*sqrt(2)); complement of A186543. 2
 1, 3, 5, 6, 9, 10, 11, 14, 16, 17, 19, 20, 23, 24, 27, 28, 30, 32, 33, 35, 37, 39, 40, 42, 44, 46, 48, 49, 52, 53, 55, 57, 58, 60, 62, 64, 65, 67, 69, 71, 72, 75, 76, 78, 80, 82, 84, 85, 87, 89, 91, 93, 94, 96, 98, 100, 101, 103, 105, 106, 109, 110, 112, 114, 115, 117, 119, 121, 123, 124, 126, 128, 130, 132, 134, 136, 137, 139, 141 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS See A187224. LINKS Table of n, a(n) for n=1..79. MATHEMATICA m = 2^(1/2); seqA = Table[Floor[m*n], {n, 1, 180}] (* A001951 *) 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]] (* A179185 *) Complement[Range[Length[seqA]], limseqU] (* A186543 *) (* by Peter J. C. Moses, Mar 09 2011 *) CROSSREFS Cf. A187224, A186543. Sequence in context: A088359 A184413 A187345 * A270198 A133512 A344154 Adjacent sequences: A179182 A179183 A179184 * A179186 A179187 A179188 KEYWORD nonn AUTHOR Clark Kimberling, Mar 07 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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 17 19:57 EDT 2024. Contains 373463 sequences. (Running on oeis4.)