login

Revision History for A284944

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

Showing all changes.
Fixed point of the morphism 0 -> 01, 1 -> 1110.
(history; published version)
#8 by N. J. A. Sloane at Thu Apr 27 22:50:02 EDT 2017
STATUS

proposed

approved

#7 by Clark Kimberling at Thu Apr 27 14:28:49 EDT 2017
STATUS

editing

proposed

#6 by Clark Kimberling at Thu Apr 27 13:22:57 EDT 2017
LINKS

<a href="/index/Fi#FIXEDPOINTS">Index entries for sequences that are fixed points of mappings</a>

STATUS

approved

editing

#5 by N. J. A. Sloane at Tue Apr 18 22:40:42 EDT 2017
STATUS

proposed

approved

#4 by Clark Kimberling at Tue Apr 18 17:55:50 EDT 2017
STATUS

editing

proposed

#3 by Clark Kimberling at Tue Apr 18 17:11:44 EDT 2017
NAME

allocated for Clark KimberlingFixed point of the morphism 0 -> 01, 1 -> 1110.

DATA

0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0

OFFSET

1

LINKS

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

EXAMPLE

0 -> 01-> 011110 -> 01111011101110111001->

MATHEMATICA

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

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

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

CROSSREFS
KEYWORD

allocated

nonn,easy

AUTHOR

Clark Kimberling, Apr 18 2017

STATUS

approved

editing

#2 by Clark Kimberling at Thu Apr 06 09:37:58 EDT 2017
KEYWORD

allocating

allocated

#1 by Clark Kimberling at Thu Apr 06 09:37:58 EDT 2017
NAME

allocated for Clark Kimberling

KEYWORD

allocating

STATUS

approved