%I #11 May 26 2018 16:00:38
%S 0,1,4,9,16,25,36,49,64,81,10,11,24,39,56,75,96,119,144,171,40,42,88,
%T 138,192,250,312,378,448,522,90,93,192,297,408,525,648,777,912,1053,
%U 160,164,336,516,704,900,1104,1316,1536,1764,250,255,520,795,1080,1375,1680,1995,2320,2655,360,366,744,1134,1536,1950
%N a(n) = product of n and all its nonzero digits.
%H Harvey P. Dale, <a href="/A230101/b230101.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Coi#Colombian">Index entries for Colombian or self numbers and related sequences</a>
%F a(n) = n*A051801.
%e a(15) = 15*1*5=75
%p with transforms; [seq(n*digprod0(n), n=0..200)];
%t Table[n*Times@@Select[IntegerDigits[n],#!=0&],{n,0,70}] (* _Harvey P. Dale_, May 26 2018 *)
%Y Cf. A007954, A051801, A098736.
%K base,easy,nonn
%O 0,3
%A _N. J. A. Sloane_, Oct 12 2013