|
%I #11 Aug 20 2021 04:22:46
%S 1,2,3,4,5,6,7,8,9,10,20,30,40,50,60,70,80,90,100,101,102,103,104,105,
%T 106,107,108,109,110,120,130,140,150,160,170,180,190,200,201,202,203,
%U 204,205,206,207,208,209,210,220,230,240,250,260,270,280,290,300,301
%N Numbers k that divide the product of digits of k.
%C Every integer except zero divides zero.
%C A050720(2*n) is the number of terms of length n for n >= 2.
%H Arkadiusz Wesolowski, <a href="/A212499/b212499.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n+9) = A011540(n+1).
%t Union[Range[9], Select[Range[10, 301], DigitCount[#, 10, 0] > 0 &]]
%t Select[Range[301], Divisible[Product[i, {i, IntegerDigits[#]}], #] &]
%Y Cf. A011540, A049101, A050720.
%K base,easy,nonn
%O 1,2
%A _Arkadiusz Wesolowski_, May 19 2012
|
