A039352 Numbers whose base-8 representation has the same nonzero number of 4's and 6's.

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

Links

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

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

Adjacent sequences: A039349 A039350 A039351 * A039353 A039354 A039355

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved