login
Write n in base 5, then complement each digit (d -> 4-d) and juxtapose.
1

%I #11 Jul 01 2014 23:01:00

%S 3,2,1,0,3,4,3,3,3,2,3,1,3,0,2,4,2,3,2,2,2,1,2,0,1,4,1,3,1,2,1,1,1,0,

%T 0,4,0,3,0,2,0,1,0,0,3,4,4,3,4,3,3,4,2,3,4,1,3,4,0,3,3,4,3,3,3,3,3,2,

%U 3,3,1,3,3,0,3,2,4,3,2,3,3,2,2,3,2,1,3,2,0,3

%N Write n in base 5, then complement each digit (d -> 4-d) and juxtapose.

%t 4 - Flatten[ IntegerDigits[ Range@50, 5]] (* _Robert G. Wilson v_, Jul 01 2014 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_