|
|
A045207
|
|
Numbers whose base-5 representation contains exactly one 0 and one 4.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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:
|
|
MATHEMATICA
|
Select[Range[400], DigitCount[#, 5, 0]==DigitCount[#, 5, 4]==1&] (* Harvey P. Dale, Nov 10 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|