This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A066355 #14 Mar 14 2015 00:03:36
%S A066355 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 A066355 26,21,110,111,56,23,60,8,22,9,35,9,30,5,100,13,105,53,18,55,14,30,25,
%U A066355 100,17,52,21,20,4,100,18,15,100,102,52,27,22,100,51,13,35,8,100,7,100
%N A066355 A055471(n)/(product of nonzero digits of A055471(n)).
%H A066355 Vincenzo Librandi, <a href="/A066355/b066355.txt">Table of n, a(n) for n = 1..1000</a>
%e A066355 15 is the 13th term of A055471, hence a(13)=15/(1*5) =3.
%t A066355 pd[n_] := Times @@ Select[IntegerDigits[n], # > 0 &];
%t A066355 Select[Table[n/pd[n], {n, 1000}], IntegerQ] (* _Ray Chandler_, Mar 11 2014 *)
%Y A066355 Cf. A055471, A113315.
%K A066355 nonn,base
%O A066355 1,10
%A A066355 _Amarnath Murthy_, Dec 20 2001
%E A066355 Corrected and extended by _Ray Chandler_, Mar 11 2014