A285531 Positions of 0 in A285530; complement of A285532.

1, 3, 4, 5, 7, 8, 11, 13, 14, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42, 45, 47, 48, 53, 55, 56, 57, 59, 60, 61, 63, 64, 65, 67, 68, 71, 73, 74, 81, 83, 84, 89, 91, 92, 93, 95, 96, 99, 101, 102, 107, 109, 110, 111, 113, 114, 115

Offset

1,2

Comments

Conjecture: a(n)/n -> 2.

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

As a word, A285530 = 01000100..., in which 0 is in positions 1,3,4,5,7,...

Maple

f:= proc(i) if i=0 then (1, 1) else (0, 1, 0, 0) fi end proc:
S:= [0]:
while numboccur(0, S) < 10000 do
   S:= map(f, map(f, S))
od:
ListTools:-SearchAll(0, S); # Robert Israel, Nov 04 2019

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 1, 0, 0}}] &, {0}, 8] (* A285530 *)
Flatten[Position[s, 0]]  (* A285531 *)
Flatten[Position[s, 1]]  (* A285532 *)

Crossrefs

Cf. A285530, A285532, A285533.

Sequence in context: A257408 A131613 A138494 * A111801 A108372 A325131

Adjacent sequences: A285528 A285529 A285530 * A285532 A285533 A285534

Keyword

nonn,easy

Author

Clark Kimberling, Apr 30 2017

Status

approved