login
A039342
Numbers whose base-8 representation has the same nonzero number of 2's and 3's.
0
19, 26, 83, 90, 131, 139, 152, 153, 156, 157, 158, 159, 163, 171, 179, 187, 194, 202, 208, 209, 212, 213, 214, 215, 226, 234, 242, 250, 275, 282, 339, 346, 403, 410, 467, 474, 531, 538, 595, 602, 643, 651, 664, 665, 668, 669, 670, 671, 675, 683, 691, 699
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
Sequence in context: A066125 A181691 A390820 * A043165 A043945 A274685
KEYWORD
nonn,base,easy
STATUS
approved