A031055 - OEIS

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