|
%I #2 Mar 31 2012 20:25:48
%S 1,1,3,3,4,3,4,5,5,5,5,5,4,4,5,5,5,5,5,5,5,5,5,6,6,5,5,5,5,5,6,6,6,6,
%T 7,7,7,6,6,6,6,6,6,6,6,6,5,6,6,6,5,5,5,4,4,4,4,4,4,4,4,4,7,7,7,6,6,6,
%U 6,6,6,6,6,6,6,6,6,6,6,8,8,8,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,8,8,8,7,7,7,7
%N Number of bases in which the concatenation of the consecutive increasing integers 1...n is greater than the concatenation of consecutive decreasing integers n...1 in the same base.
%t Table[Count[ Table[Negative[FromDigits[Flatten[IntegerDigits[Reverse[Range[x]], ba]], \ ba] - FromDigits[Flatten[IntegerDigits[Range[x], ba]], ba]], {ba, 2, x + 1}], True], {x, 1, 200}]
%K base,nonn
%O 2,3
%A _Dylan Hamilton_, Oct 20 2010
|
