The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A284913

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

A284913

Positions of 0 in A284912; complement of A284914.
(history; published version)

#6 by N. J. A. Sloane at Tue Apr 18 15:24:19 EDT 2017

STATUS

proposed

approved

#5 by Clark Kimberling at Mon Apr 17 11:24:56 EDT 2017

STATUS

editing

proposed

#4 by Clark Kimberling at Mon Apr 17 11:23:17 EDT 2017

NAME

Positions of 0 in A284912; complement of A284913A284914.

STATUS

proposed

editing

#3 by Clark Kimberling at Mon Apr 17 10:50:59 EDT 2017

STATUS

editing

proposed

Discussion

Mon Apr 17

11:18

Michel Marcus: rather :  complement of A284914 ?

#2 by Clark Kimberling at Mon Apr 17 10:39:43 EDT 2017

NAME

allocated for Clark KimberlingPositions of 0 in A284912; complement of A284913.

DATA

1, 4, 6, 8, 10, 11, 14, 16, 17, 20, 22, 23, 26, 28, 29, 31, 34, 36, 38, 40, 41, 44, 46, 47, 49, 52, 54, 56, 58, 59, 62, 64, 65, 67, 70, 72, 74, 76, 77, 80, 82, 83, 85, 88, 90, 91, 94, 96, 98, 100, 101, 104, 106, 107, 110, 112, 113, 116, 118, 119, 121, 124

OFFSET

1,2

COMMENTS

2n - a(n) is in {0,1} for n >= 1.

LINKS

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

EXAMPLE

As a word, A284912 = 011010101..., in which 0 is in positions 1,4,6,8,...

MATHEMATICA

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

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

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

CROSSREFS

Cf. A284912, A284914.

KEYWORD

allocated

nonn,easy

AUTHOR

Clark Kimberling, Apr 17 2017

STATUS

approved

editing

#1 by Clark Kimberling at Wed Apr 05 16:30:25 EDT 2017

NAME

allocated for Clark Kimberling

KEYWORD

allocated

STATUS

approved