A037331 Numbers whose base-7 and base-8 expansions have the same digit sum.
1, 2, 3, 4, 5, 6, 91, 92, 93, 94, 95, 133, 134, 135, 176, 177, 178, 179, 180, 181, 217, 218, 219, 220, 221, 222, 223, 259, 260, 261, 262, 263, 304, 305, 306, 307, 385, 386, 387, 388, 389, 390, 391, 432, 433, 472, 473, 474, 475, 553
Offset: 1
Programs
-
Mathematica
Select[Range[600],Total[IntegerDigits[#,7]]==Total[IntegerDigits[#,8]]&] (* Harvey P. Dale, Sep 05 2015 *)