|
%I #14 Apr 01 2023 11:21:13
%S 10,22,52,66,70,72,74,75,76,80,87,94,108,120,148,154,156,158,159,160,
%T 162,176,183,190,206,218,255,267,304,316,346,360,364,366,368,369,370,
%U 374,381,388,416,444,458,462,464,466,467,468,472,479,486,490,492,494
%N Numbers whose base-7 representation has the same nonzero number of 1's and 3's.
%t Select[Range[500],DigitCount[#,7,1]==DigitCount[#,7,3]>0&] (* _Harvey P. Dale_, Apr 01 2023 *)
%Y Cf. A007093.
%K nonn,base,easy
%O 1,1
%A _Olivier Gérard_
|
