%I #14 Mar 14 2015 00:03:36

%S 1,1,1,1,1,1,1,1,1,10,11,6,3,10,3,10,2,10,10,10,10,10,10,100,101,51,

%T 26,21,110,111,56,23,60,8,22,9,35,9,30,5,100,13,105,53,18,55,14,30,25,

%U 100,17,52,21,20,4,100,18,15,100,102,52,27,22,100,51,13,35,8,100,7,100

%N A055471(n)/(product of nonzero digits of A055471(n)).

%H Vincenzo Librandi, <a href="/A066355/b066355.txt">Table of n, a(n) for n = 1..1000</a>

%e 15 is the 13th term of A055471, hence a(13)=15/(1*5) =3.

%t pd[n_] := Times @@ Select[IntegerDigits[n], # > 0 &];

%t Select[Table[n/pd[n], {n, 1000}], IntegerQ] (* _Ray Chandler_, Mar 11 2014 *)

%Y Cf. A055471, A113315.

%K nonn,base

%O 1,10

%A _Amarnath Murthy_, Dec 20 2001

%E Corrected and extended by _Ray Chandler_, Mar 11 2014