A285144 Positions of 1 in A285142; complement of A285143.

1, 3, 7, 9, 13, 15, 17, 19, 23, 25, 29, 31, 35, 37, 41, 43, 45, 47, 51, 53, 57, 59, 61, 63, 67, 69, 73, 75, 79, 81, 85, 87, 89, 91, 95, 97, 101, 103, 105, 107, 111, 113, 117, 119, 121, 123, 127, 129, 133, 135, 137, 139, 143, 145, 149, 151, 155, 157, 161, 163

Offset

1,2

Comments

Conjecture: -1 < n*r - a(n) < sqrt(3) for n>=1, where r = 1 + sqrt(3).

Links

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

Example

As a word, A285142 = 1010001010..., in which 1 is in positions 1,3,7,9,13,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 0, 1, 0}}] &, {0}, 11]; (* A285142 *)
Flatten[Position[s, 0]];  (* A285143 *)
Flatten[Position[s, 1]];  (* A285144 *)

Crossrefs

Cf. A285139, A285142, A285143.

Sequence in context: A189561 A087550 A235387 * A356138 A047241 A086515

Adjacent sequences: A285141 A285142 A285143 * A285145 A285146 A285147

Keyword

nonn,easy

Author

Clark Kimberling, Apr 21 2017

Status

approved