A285276 Positions of 1 in A285274; complement of A285275.

2, 3, 4, 5, 7, 10, 11, 12, 14, 15, 16, 18, 19, 20, 21, 24, 25, 26, 28, 29, 30, 32, 33, 34, 35, 38, 39, 40, 42, 43, 44, 46, 47, 48, 49, 52, 53, 54, 56, 57, 58, 60, 61, 62, 64, 65, 66, 67, 69, 72, 73, 74, 76, 77, 78, 80, 81, 82, 84, 85, 86, 87, 90, 91, 92, 93

Offset

1,1

Comments

Conjecture: -2 < n*sqrt(2) - a(n) < 1 for n>=1.

Links

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

Example

As a word, A285274 = 011110..., in which 1 is in positions 2,3,4,5,7,10,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 1, 1, 1}}] &, {0}, 10]; (* A285274 *)
Flatten[Position[s, 0]];  (* A285275 *)
Flatten[Position[s, 1]];  (* A285276 *)

Crossrefs

Cf. A285274, A285277, A285278.

Sequence in context: A047502 A356311 A117092 * A002504 A133431 A305705

Adjacent sequences: A285273 A285274 A285275 * A285277 A285278 A285279

Keyword

nonn,easy

Author

Clark Kimberling, Apr 24 2017

Status

approved