%I #18 Jun 30 2021 02:04:48
%S 34,66,115,147,196,228,250,259,268,286,295,304,306,307,308,310,311,
%T 312,314,322,358,390,439,471,520,552,570,579,588,594,595,596,598,599,
%U 600,602,606,615,624,642,682,714,763,795,844,876,925,957,979,988,997,1015,1024,1033,1035,1036,1037,1039,1040,1041,1043,1051
%N Numbers whose base-9 representation has the same nonzero number of 3's and 7's.
%t okQ[n_]:=Module[{dc3=DigitCount[n,9,3]},dc3>0&&dc3==DigitCount[n,9,7]]
%t Select[Range[2000],okQ] (* _Harvey P. Dale_, Nov 26 2010 *)
%Y Cf. A007095.
%K nonn,base,easy
%O 1,1
%A _Olivier Gérard_
%E More terms from _Harvey P. Dale_, Nov 26 2010