A284955 Positions of 0 in A284954; complement of A284956.

1, 2, 3, 5, 6, 7, 8, 10, 11, 12, 13, 15, 17, 19, 21, 22, 23, 24, 26, 27, 28, 29, 31, 32, 33, 34, 36, 37, 38, 39, 41, 43, 45, 47, 48, 49, 50, 52, 53, 54, 55, 57, 58, 59, 60, 62, 63, 64, 65, 67, 69, 71, 73, 74, 75, 76, 78, 80, 82, 84, 85, 86, 87, 89, 91, 93

Offset

1,2

Comments

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

Links

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

Example

As a word, A284954 = 000100001..., in which 0 is in positions 1,2,3,5,6,7,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 0, 0}}] &, {0}, 8]; (* A284954 *)
Flatten[Position[s, 0]]; (* A284955  *)
Flatten[Position[s, 1]]; (* A284956 *)

Crossrefs

Cf. A284954, A284956, A284958.

Sequence in context: A028804 A345475 A191894 * A093480 A121518 A287770

Adjacent sequences: A284952 A284953 A284954 * A284956 A284957 A284958

Keyword

nonn,easy

Author

Clark Kimberling, Apr 18 2017

Status

approved