%I #13 Jun 30 2021 03:54:42

%S 14,41,104,124,134,140,142,143,145,146,147,148,149,154,164,174,184,

%T 194,214,241,314,341,401,410,412,413,415,416,417,418,419,421,431,451,

%U 461,471,481,491,514,541,614,641,714,741,814,841,914,941,1004,1024

%N Numbers whose base-10 representation has the same nonzero number of 1's and 4's.

%t Select[Range[1100],DigitCount[#,10,1]==DigitCount[#,10,4]>0&] (* _Harvey P. Dale_, Jun 09 2016 *)

%K nonn,base,easy

%O 1,1

%A _Olivier Gérard_