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
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Crossrefs
Cf. A007091.
Programs
-
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 *)
Comments