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