A187895 -id:A187895 - cp's OEIS frontend

A187896 Complement of A187895.

3, 6, 11, 15, 19, 22, 26, 29, 34, 36, 39, 44, 48, 51, 56, 58, 64, 67, 69, 75, 77, 83, 85, 88, 92, 96, 101, 104, 110, 112, 115, 119, 124, 127, 129, 134, 137, 142, 146, 149, 151, 157, 161, 165, 167, 170, 174, 179, 182, 187, 191, 195, 198, 200, 203, 208, 214, 216, 220, 222, 225, 230, 236, 238, 244, 247, 249, 254

Offset: 1

Clark Kimberling, Mar 15 2011

nonn

See A187224.

Cf. A187224, A187895.

Mathematica
```
(See A187895.)
```

A187897 Rank transform of the sequence A159481; complement of A187898.

Original entry on oeis.org

1, 2, 3, 5, 6, 8, 10, 11, 12, 13, 15, 16, 18, 19, 20, 21, 22, 24, 25, 26, 28, 29, 30, 32, 34, 35, 36, 38, 39, 40, 42, 43, 44, 46, 47, 48, 50, 51, 52, 54, 56, 57, 58, 60, 61, 63, 64, 65, 67, 68, 69, 71, 72, 74, 75, 76, 77, 79, 81, 82, 84, 85, 86, 87, 88, 90, 91, 92, 94, 95, 96, 98, 100, 101, 102, 103, 104, 106, 108, 109, 111, 112, 113, 114, 115, 117, 119, 120, 121, 123, 124, 125

Offset: 1

Clark Kimberling, Mar 15 2011

nonn

A187897 is the rank transform (see A187224) of the sequence of partial sums of the Thue-Morse sequence A010059.

Cf. A187224, A187898, A187895.

t = Nest[Flatten[# /. {1 -> {1, 0}, 0 -> {0, 1}}] &, {1}, 8]; t
seqA = Table[Sum[t[[k]], {k, 1, n}], {n, 1, 256}]   (* A159481 *)
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]]   (* A187897 *)
Complement[Range[Length[seqA]], limseqU]  (* A187898 *)
(* by Peter J. C. Moses,  Mar 15 2011 *)

cp's OEIS Frontend

A187896 Complement of A187895.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica