A045207 Numbers whose base-5 representation contains exactly one 0 and one 4.

20, 29, 45, 54, 70, 79, 95, 101, 102, 103, 105, 110, 115, 134, 139, 144, 146, 147, 148, 154, 170, 179, 195, 204, 220, 226, 227, 228, 230, 235, 240, 259, 264, 269, 271, 272, 273, 279, 295, 304, 320, 329, 345, 351, 352, 353, 355

Offset

1,1

Comments

Subset of A039286. - R. J. Mathar, Oct 20 2008

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

F:= proc(d) local S, i, j;
   # to get all d-digit members
   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)]));
   sort(map(t -> add(t[i]*5^(i-1), i=1..d), S))
end proc:
seq(op(F(d)), d=2..5); # Robert Israel, Aug 02 2020

Mathematica

Select[Range[400], DigitCount[#, 5, 0]==DigitCount[#, 5, 4]==1&] (* Harvey P. Dale, Nov 10 2017 *)

Crossrefs

Cf. A007091.

Sequence in context: A145567 A344795 A043109 * A039286 A043889 A303080

Adjacent sequences: A045204 A045205 A045206 * A045208 A045209 A045210

Keyword

nonn,base

Author

Clark Kimberling

Status

approved