A030399 - OEIS

%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_