A175928 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.

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, 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, 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

Offset: 2

Author

Dylan Hamilton, Oct 20 2010

Keywords

• base
• nonn

Programs

Mathematica

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}]