A285353 Positions of 0 in A285351; complement of A285354.

1, 3, 7, 9, 13, 16, 19, 21, 25, 27, 31, 34, 37, 39, 43, 46, 48, 52, 55, 57, 61, 63, 67, 70, 73, 75, 79, 81, 85, 88, 91, 93, 97, 100, 102, 106, 109, 111, 115, 117, 121, 124, 127, 129, 133, 136, 138, 142, 144, 148, 151, 154, 156, 160, 163, 165, 169, 171, 175

Offset

1,2

Comments

Conjecture: 3n - 2 - a(n) is in {0,1} for n>=1.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {1, 1, 0, 0}}] &, {0}, 13] (* A285345 *)
u = Flatten[Position[s, 0]]  (* A285346 *)
v = Flatten[Position[s, 1]]  (* A285347 *)
t1 = Table[2*n + 1 - u[[n]], {n, 1, Length[u]}] (* A285351 *)
t2 = Table[2*n - 1 - v[[n]], {n, 1, Length[v]}] (* A285352 *)
Flatten[Position[t1, 0]]  (* A285353 *)
Flatten[Position[t1, 1]]  (* A285354 *)
Flatten[Position[t2, 0]]  (* A189668 *)
Flatten[Position[t2, 1]]  (* A189679 *)

Crossrefs

Cf. A285345, A285346, A285351, A285354.

Sequence in context: A057701 A140291 A032367 * A063204 A236208 A284884

Adjacent sequences: A285350 A285351 A285352 * A285354 A285355 A285356

Keyword

nonn,easy

Author

Clark Kimberling, Apr 25 2017

Status

approved