A039284 - OEIS

%I #18 Oct 27 2021 09:31:33

%S 10,27,35,51,53,54,55,65,70,77,85,102,110,132,136,138,139,142,147,152,

%T 160,176,178,179,180,190,195,202,210,227,235,252,256,258,259,260,266,

%U 268,269,271,273,274,276,278,279,280,290,295,300,326,328,329,330,340

%N Numbers whose base-5 representation has the same nonzero number of 0's and 2's.

%t Select[Range[400],DigitCount[#,5,0]==DigitCount[#,5,2]>0&] (* _Harvey P. Dale_, Oct 03 2014 *)

%o (Python)

%o from sympy.ntheory import count_digits

%o def ok(n): c = count_digits(n, b=5); return c[0] == c[2] > 0

%o print([k for k in range(341) if ok(k)]) # _Michael S. Branicky_, Oct 27 2021

%Y Cf. A007091.

%Y Supersequence of A045177.

%K nonn,base,easy

%O 1,1

%A _Olivier Gérard_