A285497 Positions of 1 in A285495; complement of A285496.

3, 7, 11, 15, 17, 18, 19, 20, 23, 25, 26, 29, 33, 37, 41, 45, 49, 51, 52, 53, 54, 57, 59, 60, 63, 67, 71, 75, 79, 83, 85, 86, 87, 88, 91, 93, 94, 97, 101, 105, 109, 113, 117, 119, 120, 121, 122, 125, 127, 128, 131, 135, 137, 138, 139, 140, 143, 145, 146, 147

Offset

1,1

Links

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

Example

As a word, A285495 = 00100010..., in which 1 is in positions 3,7,11,15,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 0, 1, 0}}] &, {0}, 10] (* A285495 *)
Flatten[Position[s, 0]]  (* A285496 *)
Flatten[Position[s, 1]]  (* A285497 *)

Crossrefs

Cf. A285495, A285496, A285498.

Sequence in context: A168285 A310209 A196079 * A079710 A373415 A145832

Adjacent sequences: A285494 A285495 A285496 * A285498 A285499 A285500

Keyword

nonn,easy

Author

Clark Kimberling, Apr 30 2017

Status

approved