A031487 Numbers whose base-8 representation has the same number of 0's as 7's.
1, 2, 3, 4, 5, 6, 9, 10, 11, 12, 13, 14, 17, 18, 19, 20, 21, 22, 25, 26, 27, 28, 29, 30, 33, 34, 35, 36, 37, 38, 41, 42, 43, 44, 45, 46, 49, 50, 51, 52, 53, 54, 56, 71, 73, 74, 75, 76, 77, 78, 81, 82, 83, 84, 85, 86, 89, 90, 91, 92, 93, 94, 97
Offset: 1
Crossrefs
Cf. A007094.
Programs
-
Mathematica
Select[Range[100],DigitCount[#,8,0]==DigitCount[#,8,7]&] (* Harvey P. Dale, Dec 12 2017 *)