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

Links

Table of n, a(n) for n=1..45.

Mathematica

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

Crossrefs

Sequence in context: A352034 A321810 A252526 * A141806 A158397 A031732

Adjacent sequences: A044877 A044878 A044879 * A044881 A044882 A044883

Keyword

nonn,base

Author

Clark Kimberling

Status

approved