|
%I #15 Jan 13 2021 17:58:48
%S 4,14,22,41,114,122,141,212,221,411,1114,1122,1141,1212,1221,1411,
%T 2112,2121,2211,4111,11114,11122,11141,11212,11221,11411,12112,12121,
%U 12211,14111,21112,21121,21211,22111,41111,111114,111122,111141,111212,111221,111411
%N Numbers with digital product = 4.
%C Subsequence of A034051.
%H Robert Israel, <a href="/A199987/b199987.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+3*10^i,i=0..d-1),
%p seq(b+10^t[1]+10^t[2],t=combinat:-choose([$0..d-1],2))]))
%p end proc:
%p seq(f(d),d=1..6); # _Robert Israel_, Jan 13 2021
%t Select[Range[200000], Times @@ IntegerDigits[#] == 4 &] (* _T. D. Noe_, Nov 16 2011 *)
%K nonn,base
%O 1,1
%A _Jaroslav Krizek_, Nov 13 2011
|
