The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A283965

Positions of 1 in A283963; complement of A283964.
(history; published version)

#6 by N. J. A. Sloane at Sun Mar 26 11:51:16 EDT 2017

STATUS

proposed

approved

#5 by Jon E. Schoenfield at Sat Mar 25 16:04:32 EDT 2017

STATUS

editing

proposed

#4 by Jon E. Schoenfield at Sat Mar 25 16:04:29 EDT 2017

COMMENTS

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

STATUS

proposed

editing

#3 by Clark Kimberling at Sat Mar 25 11:39:20 EDT 2017

STATUS

editing

proposed

#2 by Clark Kimberling at Sat Mar 25 11:38:36 EDT 2017

NAME

allocated for Clark KimberlingPositions of 1 in A283963; complement of A283964.

DATA

1, 3, 5, 6, 8, 10, 11, 13, 15, 17, 19, 20, 22, 24, 25, 27, 29, 31, 33, 34, 36, 38, 39, 41, 43, 44, 46, 48, 49, 51, 53, 55, 57, 58, 60, 62, 63, 65, 67, 69, 71, 72, 74, 76, 77, 79, 81, 82, 84, 86, 87, 89, 91, 93, 95, 96, 98, 100, 101, 103, 105, 107, 109, 110

OFFSET

1,2

COMMENTS

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

LINKS

Clark Kimberling, <a href="/A283965/b283965.txt">Table of n, a(n) for n = 1..10000</a>

EXAMPLE

The first 10 letters of the word in A282963 are 1010110101, in which the positions of 1 are 1,3,5,6,8.

MATHEMATICA

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

Flatten[Position[s, 0]] (* A283964 *)

Flatten[Position[s, 1]] (* A283965 *)

CROSSREFS

Cf. A283963, A283964.

KEYWORD

allocated

nonn,easy

AUTHOR

Clark Kimberling, Mar 25 2017

STATUS

approved

editing

#1 by Clark Kimberling at Sat Mar 18 12:52:15 EDT 2017

NAME

allocated for Clark Kimberling

KEYWORD

allocated

STATUS

approved