OFFSET
1,1
MATHEMATICA
okQ[n_]:=Module[{idn8=IntegerDigits[n, 8], c2}, c2=Count[idn8, 2]; c2>0&&c2==Count[idn8, 3]]
Select[Range[750], okQ] (* Harvey P. Dale, Dec 17 2010 *)
Select[Range[700], DigitCount[#, 8, 2]==DigitCount[#, 8, 3]>0&] (* Harvey P. Dale, Apr 13 2019 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved