|
%I
%S 41,47,90,96,139,145,188,194,237,243,251,258,265,272,279,287,288,289,
%T 290,291,299,306,313,320,327,329,330,331,332,333,384,390,433,439,482,
%U 488,531,537,580,586,594,601,608,615,622,630,631,632,633,634,642,649
%N Numbers whose base-7 representation has the same nonzero number of 5's and 6's.
%t Select[Range[750],DigitCount[#,7,5]==DigitCount[#,7,6]>0&] (* _Harvey P. Dale_, Mar 31 2011 *)
%Y Cf. A007093.
%K nonn,base,easy
%O 1,1
%A _Olivier Gérard_
|
