A316829 - OEIS

A316829

Image of 0 under repeated application of the morphism 0 -> 0,1,0, 1 -> 1,1,1.

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

COMMENTS

A word that is pure uniform morphic and recurrent, but not primitive morphic.

LINKS

Antti Karttunen, Table of n, a(n) for n = 0..19682

Jean-Paul Allouche, Julien Cassaigne, Jeffrey Shallit, Luca Q. Zamboni, A Taxonomy of Morphic Sequences, arXiv preprint arXiv:1711.10807 [cs.FL], Nov 29 2017.

Index entries for characteristic functions

Index entries for sequences that are fixed points of mappings

FORMULA

a(n) = 1 - A088917(n) = A105220(n) - 1. - Antti Karttunen, Sep 27 2019

MATHEMATICA

SubstitutionSystem[{0 -> {0, 1, 0}, 1 -> {1, 1, 1}}, {0}, 5] // Last (* Jean-François Alcover, Aug 05 2018 *)

PROG

(PARI) A316829(n) = { while(n, if(n%3==1, return(1), n\=3)); (0); }; \\ Antti Karttunen, Sep 27 2019

CROSSREFS