This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A248104 Positions of 0,1,0 in the Thue-Morse sequence (A010060). 2
 4, 11, 16, 19, 28, 35, 44, 47, 52, 59, 64, 67, 76, 79, 84, 91, 100, 107, 112, 115, 124, 131, 140, 143, 148, 155, 164, 171, 176, 179, 188, 191, 196, 203, 208, 211, 220, 227, 236, 239, 244, 251, 256, 259, 268, 271, 276, 283, 292, 299, 304, 307, 316, 319, 324 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Every positive integer lies in exactly one of these six sequences: A248056 (positions of 0,0,1) A248104 (positions of 0,1,0) A157970 (positions of 1,0,0) A157971 (positions of 0,1,1) A248105 (positions of 1,0,1) A248057 (positions of 1,1,0) The terms of the sequence are the positions of the mean of the positions of the three numbers 0, 1, 0. - Harvey P. Dale, Jan 26 2019 LINKS Clark Kimberling, Table of n, a(n) for n = 1..1000 EXAMPLE Thue-Morse sequence:  0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,..., so that a(1) = 4 and a(2) = 11. MATHEMATICA z = 600; u = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0}}] &, {0}, 13]; v = Rest[u]; w = Rest[v]; t1 = Table[If[u[[n]] == 0 && v[[n]] == 0 && w[[n]] == 1, 1, 0], {n, 1, z}]; t2 = Table[If[u[[n]] == 0 && v[[n]] == 1 && w[[n]] == 0, 1, 0], {n, 1, z}]; t3 = Table[If[u[[n]] == 1 && v[[n]] == 0 && w[[n]] == 0, 1, 0], {n, 1, z}]; t4 = Table[If[u[[n]] == 0 && v[[n]] == 1 && w[[n]] == 1, 1, 0], {n, 1, z}]; t5 = Table[If[u[[n]] == 1 && v[[n]] == 0 && w[[n]] == 1, 1, 0], {n, 1, z}]; t6 = Table[If[u[[n]] == 1 && v[[n]] == 1 && w[[n]] == 0, 1, 0], {n, 1, z}]; Flatten[Position[t1, 1]]  (* A248056 *) Flatten[Position[t2, 1]]  (* A248104 *) Flatten[Position[t3, 1]]  (* A157970 *) Flatten[Position[t4, 1]]  (* A157971 *) Flatten[Position[t5, 1]]  (* A248105 *) Flatten[Position[t6, 1]]  (* A248057 *) Mean/@SequencePosition[ThueMorse[Range[400]], {0, 1, 0}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 26 2019 *) CROSSREFS Cf. A010060, A248056, A157970, A157971, A248105, A248057. Sequence in context: A135105 A193587 A261155 * A072423 A310558 A310559 Adjacent sequences:  A248101 A248102 A248103 * A248105 A248106 A248107 KEYWORD nonn,easy AUTHOR Clark Kimberling, Oct 01 2014 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
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 22 14:13 EDT 2019. Contains 322349 sequences. (Running on oeis4.)