A030351 - OEIS

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

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

OFFSET

1,4

LINKS

Chris R. Rehmann, Table of n, a(n) for n = 1..10000

MATHEMATICA

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

PROG

(MATLAB) n = 10000; y = []; e = 0;

while length(y)<n

e = e+1;

y = [y reshape(('2'-dec2base(3^(e-1):3^e-1, 3))', 1, [])];