The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A289013 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A289013

Positions of 1 in A289011; complement of A289012.
(history; published version)

#6 by N. J. A. Sloane at Mon Jun 26 22:16:27 EDT 2017

STATUS

proposed

approved

#5 by Jon E. Schoenfield at Mon Jun 26 20:43:59 EDT 2017

STATUS

editing

proposed

#4 by Jon E. Schoenfield at Mon Jun 26 20:43:55 EDT 2017

COMMENTS

Conjecture: a(n)/n -> 2 + sqrt(2), and 0 < 2 + sqrt(2) - a(n)/n < 1 for n >= 1.

STATUS

proposed

editing

#3 by Clark Kimberling at Mon Jun 26 08:48:48 EDT 2017

STATUS

editing

proposed

#2 by Clark Kimberling at Mon Jun 26 08:39:02 EDT 2017

NAME

allocated for Clark KimberlingPositions of 1 in A289011; complement of A289012.

DATA

3, 5, 8, 13, 16, 20, 22, 27, 30, 34, 37, 40, 44, 46, 51, 54, 58, 61, 63, 68, 71, 75, 78, 81, 85, 87, 92, 95, 99, 102, 104, 107, 112, 116, 119, 121, 126, 128, 133, 136, 138, 143, 145, 148, 153, 157, 160, 162, 167, 169, 174, 177, 180, 182, 187, 191, 194, 198

OFFSET

1,1

COMMENTS

Conjecture: a(n)/n -> 2 + sqrt(2), and 0 < 2 + sqrt(2) - a(n)/n < 1 for n >= 1.

MATHEMATICA

z = 11; (* number of iterates *)

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];

w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "01" -> "001", "10" -> "100"}]

TableForm[Table[w[n], {n, 0, 10}]]

st = ToCharacterCode[w[z]] - 48 (* A289011 *)

Flatten[Position[st, 0]] (* A289012 *)

Flatten[Position[st, 1]] (* A289013 *)

CROSSREFS

Cf. A289011, A289012.

KEYWORD

allocated

nonn,easy

AUTHOR

Clark Kimberling, Jun 26 2017

STATUS

approved

editing

#1 by Clark Kimberling at Wed Jun 21 15:41:26 EDT 2017

NAME

allocated for Clark Kimberling

KEYWORD

allocated

STATUS

approved