OFFSET
2,3
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}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Dylan Hamilton, Oct 20 2010
STATUS
approved