%I #20 May 21 2023 00:19:12
%S 20,29,45,54,70,79,95,101,102,103,105,110,115,134,139,144,146,147,148,
%T 154,170,179,195,204,220,226,227,228,230,235,240,259,264,269,271,272,
%U 273,279,295,304,320,329,345,351,352,353,355
%N Numbers whose base-5 representation contains exactly one 0 and one 4.
%C Subset of A039286. - _R. J. Mathar_, Oct 20 2008
%H Robert Israel, <a href="/A045207/b045207.txt">Table of n, a(n) for n = 1..10000</a>
%p F:= proc(d) local S, i,j;
%p # to get all d-digit members
%p S:= select(t -> t[d]<>0, map(op@combinat:-permute,[seq(seq([0,4,1$i,2$j,3$(d-2-i-j)],j=0..d-2-i),i=0..d-2)]));
%p sort(map(t -> add(t[i]*5^(i-1),i=1..d), S))
%p end proc:
%p seq(op(F(d)),d=2..5); # _Robert Israel_, Aug 02 2020
%t Select[Range[400],DigitCount[#,5,0]==DigitCount[#,5,4]==1&] (* _Harvey P. Dale_, Nov 10 2017 *)
%Y Cf. A007091.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|