login
This site is supported by donations to The OEIS Foundation.

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A049321 Primitive Chacon sequence: fixed under 0->0012, 1->12, 2->012. 2
0, 0, 1, 2, 0, 0, 1, 2, 1, 2, 0, 1, 2, 0, 0, 1, 2, 0, 0, 1, 2, 1, 2, 0, 1, 2, 1, 2, 0, 1, 2, 0, 0, 1, 2, 1, 2, 0, 1, 2, 0, 0, 1, 2, 0, 0, 1, 2, 1, 2, 0, 1, 2, 0, 0, 1, 2, 0, 0, 1, 2, 1, 2, 0, 1, 2, 1, 2, 0, 1, 2, 0, 0, 1, 2, 1, 2, 0, 1, 2, 1, 2, 0, 1, 2, 0, 0, 1, 2, 1, 2, 0, 1, 2, 0, 0, 1, 2, 0, 0, 1, 2, 1, 2, 0 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Scott Balchin and Dan Rust, Computations for Symbolic Substitutions, Journal of Integer Sequences, Vol. 20 (2017), Article 17.4.1.

S. Ferenczi, Complexity of sequences and dynamical systems, Discrete Math., 206 (1999), 145-154.

MATHEMATICA

Nest[Flatten[# /. {0 -> {0, 0, 1, 2}, 1 -> {1, 2}, 2 -> {0, 1, 2}}]&, {0}, 4] (* Jean-Fran├žois Alcover, Oct 05 2016 *)

PROG

(Haskell)

a049321 n = a049321_list !! n

a049321_list = 0 : 0 : 1 : 2 : f [0, 0, 1, 2] where

   f xs = drop (length xs) ys ++ f ys where

     ys = concatMap ch xs

     ch 0 = [0, 0, 1, 2]; ch 1 = [1, 2]; ch 2 = [0, 1, 2]

-- Reinhard Zumkeller, Aug 14 2013

CROSSREFS

Cf. A003849, A049320.

Sequence in context: A024942 A210255 A283319 * A204425 A245187 A292598

Adjacent sequences:  A049318 A049319 A049320 * A049322 A049323 A049324

KEYWORD

nonn,nice,easy

AUTHOR

N. J. A. Sloane

EXTENSIONS

More terms from Larry Reeves (larryr(AT)acm.org), Apr 12 2000

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 16 23:44 EST 2019. Contains 319206 sequences. (Running on oeis4.)