A030351 Write n in base 3, then complement each digit (d -> 2-d) and juxtapose.

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

Offset

1,4

Links

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

Mathematica

2 - Flatten[IntegerDigits[Range@35, 3]] (* Robert G. Wilson v, Jul 01 2014 *)

Crossrefs

Sequence in context: A068462 A369596 A054973 * A257994 A188921 A334568

Adjacent sequences: A030348 A030349 A030350 * A030352 A030353 A030354

Keyword

nonn,base

Author

Clark Kimberling

Status

approved