A044880 In base 9, (sum of even run lengths)=(sum of odd run lengths).

730, 731, 732, 733, 734, 735, 736, 737, 739, 749, 759, 769, 779, 789, 799, 809, 811, 812, 813, 814, 815, 816, 817, 818, 828, 829, 831, 832, 833, 834, 835, 836, 837, 838, 839, 841, 842, 843, 844, 845, 846, 847, 848, 849, 851

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Programs

Mathematica

Select[Range[1000],With[{lens=Length/@Split[IntegerDigits[#,9]]},Total[Select[lens,OddQ]]==Total[Select[lens,EvenQ]]]&] (* Harvey P. Dale, Nov 26 2024 *)