A284469 Positions of 0 in A284468; complement of A284470.

1, 3, 4, 6, 8, 9, 12, 14, 15, 16, 18, 19, 21, 23, 24, 27, 29, 30, 32, 34, 35, 38, 40, 41, 42, 44, 45, 47, 49, 50, 54, 56, 57, 60, 62, 63, 65, 67, 68, 71, 73, 74, 75, 77, 78, 79, 81, 82, 84, 86, 87, 90, 92, 93, 94, 96, 97, 99, 101, 102, 105, 107, 108, 110

Offset

1,2

Comments

Conjecture: a(n)/n -> (7 + sqrt(13))/6.

Links

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

Mathematica

s = Nest[Flatten[# /. {0 -> {1}, 1 -> {0, 1, 0, 0}}] &, {0}, 16]; (* A284468 *)
Flatten[Position[s, 0]];  (* A284469 *)
Flatten[Position[s, 1]];  (* A284470*)

Crossrefs

Cf. A284468, A284470, A284472.

Sequence in context: A288601 A192519 A036446 * A366288 A059267 A362670

Adjacent sequences: A284466 A284467 A284468 * A284470 A284471 A284472

Keyword

nonn,easy

Author

Clark Kimberling, Apr 02 2017

Status

approved