OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(d) local b, i, t;
b:= (10^d-1)/9;
op(sort([seq(b+7*10^i, i=0..d-1), seq(b+10^t[1]+3*10^t[2], t = combinat:-permute([$0..d-1], 2)), seq(b+10^t[1]+10^t[2]+10^t[3], t=combinat:-choose([$0..d-1], 3))]))
end proc:
seq(f(d), d=1..5); # Robert Israel, Jan 13 2021
MATHEMATICA
Select[Range[20000], Times @@ IntegerDigits[#] == 8 &] (* T. D. Noe, Nov 16 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Nov 13 2011
STATUS
approved