login
A039352
Numbers whose base-8 representation has the same nonzero number of 4's and 6's.
0
38, 52, 102, 116, 166, 180, 230, 244, 262, 270, 278, 286, 302, 304, 305, 306, 307, 309, 311, 318, 358, 372, 388, 396, 404, 412, 416, 417, 418, 419, 421, 423, 428, 444, 486, 500, 550, 564, 614, 628, 678, 692, 742, 756, 774, 782, 790, 798, 814, 816, 817
OFFSET
1,1
MATHEMATICA
okQ[n_]:=Module[{dc8=DigitCount[n, 8]}, dc8[[4]]==dc8[[6]]>0]; Select[ Range[ 1000], okQ] (* Harvey P. Dale, Nov 14 2011 *)
Select[Range[1000], DigitCount[#, 8, 4]==DigitCount[#, 8, 6]>0&] (* Harvey P. Dale, Sep 12 2022 *)
CROSSREFS
Cf. A007094.
Sequence in context: A282813 A125970 A026047 * A043175 A043955 A341172
KEYWORD
nonn,base,easy
STATUS
approved