A030586 - OEIS

%I #9 Jul 01 2014 22:51:43

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

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

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

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

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

%K nonn,base

%O 1,1

%A _Clark Kimberling_