A187897 -id:A187897 - cp's OEIS frontend

A187898 Complement of A187897.

4, 7, 9, 14, 17, 23, 27, 31, 33, 37, 41, 45, 49, 53, 55, 59, 62, 66, 70, 73, 78, 80, 83, 89, 93, 97, 99, 105, 107, 110, 116, 118, 122, 126, 130, 132, 138, 140, 144, 148, 154, 156, 159, 164, 168, 172, 176, 178, 184, 186, 190, 194, 197, 203, 205, 209, 211, 217, 222, 225, 230, 232, 235, 239, 242, 246, 250, 252

Offset: 1

Clark Kimberling, Mar 15 2011

nonn

See A187224.

Cf. A187224, A187897, A187896.

Mathematica
```
(See A187897.)
```

A187895 Rank transform of the sequence A115384; complement of A187896.

Original entry on oeis.org

1, 2, 4, 5, 7, 8, 9, 10, 12, 13, 14, 16, 17, 18, 20, 21, 23, 24, 25, 27, 28, 30, 31, 32, 33, 35, 37, 38, 40, 41, 42, 43, 45, 46, 47, 49, 50, 52, 53, 54, 55, 57, 59, 60, 61, 62, 63, 65, 66, 68, 70, 71, 72, 73, 74, 76, 78, 79, 80, 81, 82, 84, 86, 87, 89, 90, 91, 93, 94, 95, 97, 98, 99, 100, 102, 103, 105, 106, 107, 108, 109, 111, 113, 114, 116, 117, 118, 120, 121, 122, 123, 125

Offset: 1

Clark Kimberling, Mar 15 2011

nonn

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

Cf. A187224, A187896, A187897.

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

cp's OEIS Frontend

A187898 Complement of A187897.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica