%I #9 Jul 01 2014 22:50:41
%S 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,
%T 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,
%U 1,2,2,2,1,2,2,1,1,2,2,0,1,2,1,2,1,2,1,1,1,2
%N Write n in base 3, then complement each digit (d -> 2-d) and juxtapose.
%t 2 - Flatten[IntegerDigits[Range@35, 3]] (* _Robert G. Wilson v_, Jul 01 2014 *)
%K nonn,base
%O 1,4
%A _Clark Kimberling_
|