A037982 Numbers whose maximal base 5 run length is 3.
31, 62, 93, 124, 125, 155, 157, 158, 159, 187, 218, 249, 250, 281, 310, 311, 313, 314, 343, 374, 375, 406, 437, 465, 466, 467, 469, 499, 500, 531, 562, 593, 620, 621, 622, 623, 626, 627, 628, 629, 656, 687, 718, 749, 750, 775
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A043279.
Programs
-
Mathematica
Select[Range[800],Max[Length/@Split[IntegerDigits[#,5]]]==3&] (* Harvey P. Dale, Feb 15 2022 *)