A089650 a(n) = A089649(n) mod 3.

1, 2, 0, 1, 0, 2, 1, 1, 1, 1, 2, 0, 1, 1, 1, 1, 0, 2, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 0, 2, 1, 1, 1, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 1, 1, 1, 0, 2, 1, 2, 0, 1, 0, 2, 1, 1, 1, 1, 2, 0, 1, 0, 2, 1, 1, 1, 1, 2, 0, 1, 0, 2, 1, 1, 1, 1, 2, 0, 1, 0, 2, 1, 1, 1, 1, 2, 0, 1, 1, 1, 1, 0, 2, 1, 2, 0, 1, 2, 0

Offset

1,2

Comments

Partial sums, modulo 3, of the sequence: a(1)=1, a(1), a(1), a(1), a(2), a(2), a(2), a(3), a(3), ... each term repeated 3 times.

Links

Table of n, a(n) for n=1..105.

Index entries for sequences that are fixed points of mappings

Formula

A fixed point of the morphism 1->120, 2->102, 0->111.

Mathematica

Nest[ Function[ l, {Flatten[(l /. {0 -> {1, 1, 1}, 1 -> {1, 2, 0}, 2 -> {1, 0, 2}})]}], {0}, 5] (* Robert G. Wilson v, Feb 26 2005 *)

Prog

(PARI) a(n)=if(n<2, 1, (a(n-1)+a(floor((n+1)/3)))%3)

Crossrefs

Sequence in context: A339737 A364916 A365923 * A085513 A362913 A259965

Adjacent sequences: A089647 A089648 A089649 * A089651 A089652 A089653

Keyword

easy,nonn

Author

Philippe Deléham, Jan 02 2004

Status

approved