A199989 Numbers with digital product = 8.

8, 18, 24, 42, 81, 118, 124, 142, 181, 214, 222, 241, 412, 421, 811, 1118, 1124, 1142, 1181, 1214, 1222, 1241, 1412, 1421, 1811, 2114, 2122, 2141, 2212, 2221, 2411, 4112, 4121, 4211, 8111, 11118, 11124, 11142, 11181, 11214, 11222, 11241, 11412, 11421, 11811

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

Subsequence of A034055.

Cf. A007954.

Sequence in context: A045043 A043881 A201023 * A201056 A352081 A257404

Adjacent sequences: A199986 A199987 A199988 * A199990 A199991 A199992

Keyword

nonn,base

Author

Jaroslav Krizek, Nov 13 2011

Status

approved