A285196 If A_k denotes the first 2*3^k terms, then A_0 = 01, A_{k+1} = A_k A_k B_k, where B_k is the reversal of A_k.

0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0

Offset

0

Comments

The old (incorrect) definition was "If A_k denotes the first 2*3^k terms, then A_0 = 01, A_{k+1} = A_k A_k B_k, where B_k is obtained from A_k by interchanging 0's and 1's."

Links

Table of n, a(n) for n=0..100.

Maple

with(ListTools);
f2:=proc(S) map(x->x+1 mod 2, S); end;
f:=proc(S) global f2;
[op(S), op(S), op(f2(S))]; end;
S:=[0, 1];
for n from 1 to 6 do S:=f(S): od:
S;

Crossrefs

Cf. A118006.

Sequence in context: A286685 A284878 A118006 * A189673 A189014 A189017

Adjacent sequences: A285193 A285194 A285195 * A285197 A285198 A285199

Keyword

nonn

Author

N. J. A. Sloane, Apr 30 2017

Extensions

Definition corrected by N. J. A. Sloane, Aug 29 2023 at the suggestion of L. Edson Jeffery

Status

approved