|
%I #15 Jan 13 2021 17:59:09
%S 8,18,24,42,81,118,124,142,181,214,222,241,412,421,811,1118,1124,1142,
%T 1181,1214,1222,1241,1412,1421,1811,2114,2122,2141,2212,2221,2411,
%U 4112,4121,4211,8111,11118,11124,11142,11181,11214,11222,11241,11412,11421,11811
%N Numbers with digital product = 8.
%H Robert Israel, <a href="/A199989/b199989.txt">Table of n, a(n) for n = 1..10000</a>
%p f:= proc(d) local b,i,t;
%p b:= (10^d-1)/9;
%p 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))]))
%p end proc:
%p seq(f(d),d=1..5); # _Robert Israel_, Jan 13 2021
%t Select[Range[20000], Times @@ IntegerDigits[#] == 8 &] (* _T. D. Noe_, Nov 16 2011 *)
%Y Subsequence of A034055.
%Y Cf. A007954.
%K nonn,base
%O 1,1
%A _Jaroslav Krizek_, Nov 13 2011
|
