login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A280512 Index sequence of the Thue-Morse sequence (A010060, using offset 1) as a reverse block-fractal sequence. 2
1, 3, 2, 1, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 192, 191, 190, 189, 188 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

See A280511 for definitions. Note that the records, 3,12,48,192,... are also records in A280510, if A010060 is indexed with offset 1 instead of 0; see Example.

LINKS

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

EXAMPLE

A010060 = (0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,,...) = (s(1), s(2), ... ).

(init. bl. #1) = (0); reversal = (0), first occurs s(1), so that a(1) = 1;

(init. bl. #2) = (0,1); reversal = (1,0) first occurs at s(3), so that a(2) = 3;

(init. bl. #3) = (0,1,1); reversal = (1,1,0) first occurs s(2), so that a(3) = 2.

MATHEMATICA

seq = Table[Mod[Length[FixedPointList[BitAnd[#, # - 1] &, n]], 2], {n, 0, 400}]  (* A010060 *)

seq = StringJoin[Map[ToString, seq]]

breverse[seq_] := Flatten[Last[Reap[NestWhile[# + 1 &, 1, (StringLength[

str = StringTake[seq, Min[StringLength[seq], #]]] == # && ! (Sow[

StringPosition[seq, StringReverse[str], 1][[1]][[1]]]) === {}) &]]]];

breverse[seq] (* A280512 *) (* Peter J. C. Moses, Jan 01 2017 *)

CROSSREFS

Cf. A010060, A280510, A280511, A280513.

Sequence in context: A059418 A092582 A213262 * A068440 A246381 A048647

Adjacent sequences:  A280509 A280510 A280511 * A280513 A280514 A280515

KEYWORD

nonn,easy

AUTHOR

Clark Kimberling, Feb 10 2017

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 16 02:39 EST 2019. Contains 320140 sequences. (Running on oeis4.)