A039315 - OEIS

%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_