This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A199989 #15 Jan 13 2021 17:59:09 %S A199989 8,18,24,42,81,118,124,142,181,214,222,241,412,421,811,1118,1124,1142, %T A199989 1181,1214,1222,1241,1412,1421,1811,2114,2122,2141,2212,2221,2411, %U A199989 4112,4121,4211,8111,11118,11124,11142,11181,11214,11222,11241,11412,11421,11811 %N A199989 Numbers with digital product = 8. %H A199989 Robert Israel, <a href="/A199989/b199989.txt">Table of n, a(n) for n = 1..10000</a> %p A199989 f:= proc(d) local b,i,t; %p A199989 b:= (10^d-1)/9; %p A199989 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 A199989 end proc: %p A199989 seq(f(d),d=1..5); # _Robert Israel_, Jan 13 2021 %t A199989 Select[Range[20000], Times @@ IntegerDigits[#] == 8 &] (* _T. D. Noe_, Nov 16 2011 *) %Y A199989 Subsequence of A034055. %Y A199989 Cf. A007954. %K A199989 nonn,base %O A199989 1,1 %A A199989 _Jaroslav Krizek_, Nov 13 2011