The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A284847

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

A284847

Positions of 1 in the {1100->0}-transform of A010060; complement of A284820.
(history; published version)

#9 by Peter Luschny at Fri Sep 24 07:34:50 EDT 2021

STATUS

reviewed

approved

#8 by Joerg Arndt at Fri Sep 24 07:15:48 EDT 2021

STATUS

proposed

reviewed

#7 by Georg Fischer at Fri Sep 24 06:50:02 EDT 2021

STATUS

editing

proposed

#6 by Georg Fischer at Fri Sep 24 06:49:47 EDT 2021

NAME

Positions of 1 in A284792the {1100->0}-transform of A010060; complement of A284820.

EXAMPLE

As a The {1100->0}-transform of A010060 begins with the word, A284627 = 011010001011010010011010001..., in which 1 is in positions 2,3,5,9,11,...

MATHEMATICA

st = ToCharacterCode[w1] - 48 (* A284792 *)

EXTENSIONS

Definition corrected by Georg Fischer, Sep 24 2021

STATUS

approved

editing

#5 by N. J. A. Sloane at Wed May 10 21:32:36 EDT 2017

STATUS

proposed

approved

#4 by Clark Kimberling at Wed May 10 19:30:16 EDT 2017

STATUS

editing

proposed

#3 by Clark Kimberling at Wed May 10 19:08:52 EDT 2017

NAME

allocated for Clark KimberlingPositions of 1 in A284792; complement of A284820.

DATA

2, 3, 5, 9, 11, 12, 14, 17, 20, 21, 23, 27, 30, 31, 33, 36, 38, 39, 41, 45, 47, 48, 50, 53, 56, 57, 59, 62, 64, 65, 67, 71, 74, 75, 77, 81, 83, 84, 86, 89, 92, 93, 95, 99, 102, 103, 105, 108, 110, 111, 113, 117, 120, 121, 123, 127, 129, 130, 132, 135, 138

OFFSET

1,1

COMMENTS

a(n) - a(n-1) is in {1,2,3,4} for n>=2. Conjecture: a(n)/n -> 9/4.

LINKS

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

EXAMPLE

As a word, A284627 = 011010001011010010011010001..., in which 1 is in positions 2,3,5,9,11,...

MATHEMATICA

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

w = StringJoin[Map[ToString, s]]

w1 = StringReplace[w, {"1100" -> "0"}]

st = ToCharacterCode[w1] - 48 (* A284792 *)

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

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

CROSSREFS

Cf. A010060, A284792, A284820.

KEYWORD

allocated

nonn,easy

AUTHOR

Clark Kimberling, May 10 2017

STATUS

approved

editing

#2 by Clark Kimberling at Tue Apr 04 09:24:11 EDT 2017

KEYWORD

allocating

allocated

#1 by Clark Kimberling at Tue Apr 04 09:24:11 EDT 2017

NAME

allocated for Clark Kimberling

KEYWORD

allocating

STATUS

approved