A187351 Rank transform of the sequence floor(n/sqrt(2)); complement of A187352.

1, 2, 4, 5, 7, 8, 9, 11, 13, 14, 15, 17, 19, 20, 22, 23, 25, 26, 27, 29, 30, 32, 34, 35, 36, 38, 39, 40, 42, 44, 45, 46, 48, 50, 51, 52, 54, 55, 57, 59, 60, 61, 63, 65, 66, 67, 69, 70, 71, 73, 75, 76, 78, 79, 80, 82, 84, 86, 87, 88, 90, 91, 92, 94, 95, 97, 99, 100, 101, 103, 104

Offset

1,2

Comments

See A187224.

Links

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

Mathematica

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

Crossrefs

Cf. A187224, A187352.

Sequence in context: A001951 A039046 A187683 * A026451 A050106 A345917

Adjacent sequences: A187348 A187349 A187350 * A187352 A187353 A187354

Keyword

nonn

Author

Clark Kimberling, Mar 08 2011

Status

approved