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