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