%I #15 May 19 2023 19:57:02
%S 1,5,7,8,11,16,25,27,28,35,37,38,40,42,43,51,55,57,58,61,66,76,80,82,
%T 83,86,91,125,127,128,135,137,138,140,142,143,175,177,178,185,187,188,
%U 190,192,193,200,202,203,210,212,213,215,217,218
%N Numbers whose base-5 representation contains exactly one 1 and no 4's.
%H Harvey P. Dale, <a href="/A045251/b045251.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[250],DigitCount[#,5,1]==1&&DigitCount[#,5,4]==0&] (* _Harvey P. Dale_, Feb 26 2022 *)
%Y Cf. A007091.
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|