|
%I #7 Nov 21 2013 12:46:44
%S 10,11,12,13,14,15,16,17,18,19,20,21,23,24,30,31,32,33,35,36,40,41,42,
%T 50,51,60,61,63,68,70,71,80,81,90,91,100,102,108,110,112,114,116,118,
%U 120,122,124,126,136,140
%N n is divisible by |(product of digits) - (sum of digits)|.
%H Harvey P. Dale, <a href="/A038368/b038368.txt">Table of n, a(n) for n = 1..1000</a>
%t pmsQ[n_]:=Module[{idn=IntegerDigits[n],x},x=Times@@idn-Total[idn];x!=0 && Divisible[n,x]]; Select[Range[200],pmsQ] (* _Harvey P. Dale_, Oct 11 2011 *)
%K easy,nonn,base
%O 1,1
%A _Felice Russo_
|
