|
%I #12 Oct 25 2023 11:39:52
%S 19,85,151,175,187,199,211,223,228,230,231,232,233,234,236,237,238,
%T 239,247,259,271,283,307,373,451,517,595,661,739,805,883,949,1009,
%U 1020,1022,1023,1024,1025,1026,1028,1029,1030,1031,1033,1045,1057
%N Numbers whose base-12 representation has the same nonzero number of 1's and 7's.
%t Select[Range[1200],DigitCount[#,12,1]==DigitCount[#,12,7]>0&] (* _Harvey P. Dale_, Oct 25 2023 *)
%K nonn,base,easy
%O 1,1
%A _Olivier Gérard_
|
