%I #8 Nov 21 2013 12:47:24
%S 1,2,3,4,5,6,7,8,9,11,22,111,112,121,123,132,211,213,231,312,321,1111,
%T 1113,1124,1131,1142,1214,1241,1311,1412,1421,2114,2141,2411,3111,
%U 4112,4121,4211,11111,11112,11114,11121,11125,11133,11141,11152,11211,11215
%N Product of the digits of n divides the sum of the digits of n.
%t Do[If[Mod[Apply[Plus, IntegerDigits[n]], Apply[Times, IntegerDigits[n]]]==0, Print[n]], {n, 1, 100000}]
%t pdsQ[n_]:=Module[{idn=IntegerDigits[n]},!MemberQ[idn,0] && Divisible[ Total[idn],Times@@idn]]; Select[Range[12000],pdsQ] (* _Harvey P. Dale_, Dec 07 2011 *)
%Y Cf. A038367.
%K easy,nonn,base
%O 1,2
%A _Robert G. Wilson v_, Jul 17 2000