|
%I #10 Aug 13 2015 12:30:47
%S 1,2,3,4,5,6,7,8,9,10,11,20,22,30,40,50,60,70,80,90,100,101,110,111,
%T 112,121,123,132,200,202,211,213,220,231,300,312,321,400,500,600,700,
%U 800,900,1000,1001,1010,1011,1012,1021,1023,1032,1100,1101,1102,1110
%N Product of digits (not counting zeros) of n divides sum of digits of n.
%H Harvey P. Dale, <a href="/A055933/b055933.txt">Table of n, a(n) for n = 1..1000</a>
%t Do[a=IntegerDigits[FromDigits[Sort[IntegerDigits[n]]]]; If[Mod[Apply[Plus,a],Apply[Times,a]]==0,Print[n]],{n,5000}]
%t pdsdQ[n_]:=Module[{idnz=Select[IntegerDigits[n],#!=0&]},Divisible[Total[ idnz], Times@@idnz]]; Select[Range[1200],pdsdQ] (* _Harvey P. Dale_, Aug 13 2015 *)
%K easy,nonn,base
%O 1,2
%A _Robert G. Wilson v_, Jul 17 2000
|
