OFFSET
1,1
COMMENTS
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) = 3 and a(2) = 12.
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 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Oct 01 2014
STATUS
approved