%I #14 Jun 29 2021 02:23:04
%S 22,50,86,114,134,142,158,166,174,176,177,179,180,181,183,190,214,242,
%T 278,306,342,370,386,394,400,401,403,404,405,407,410,418,426,442,470,
%U 498,534,562,598,626,646,654,670,678,686,688,689,691,692,693,695,702
%N Numbers whose base-8 representation has the same nonzero number of 2's and 6's.
%t Select[Range[1000],DigitCount[#,8,2]==DigitCount[#,8,6]>0&] (* _Harvey P. Dale_, Jul 21 2013 *)
%Y Cf. A007094.
%K nonn,base,easy
%O 1,1
%A _Olivier GĂ©rard_
|