|
%I #13 May 19 2023 20:17:15
%S 1,5,8,9,16,21,25,28,29,40,43,44,45,48,49,76,80,83,84,91,96,101,105,
%T 108,109,116,121,125,128,129,140,143,144,145,148,149,200,203,204,215,
%U 218,219,220,223,224,225,228,229,240,243,244,245
%N Numbers whose base-5 representation contains exactly one 1 and no 2's.
%t Select[Range[250],DigitCount[#,5,1]==1&&DigitCount[#,5,2]==0&] (* _Harvey P. Dale_, Dec 26 2021 *)
%Y Cf. A007091.
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
