A066355 - OEIS

A066355

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

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, 26, 21, 110, 111, 56, 23, 60, 8, 22, 9, 35, 9, 30, 5, 100, 13, 105, 53, 18, 55, 14, 30, 25, 100, 17, 52, 21, 20, 4, 100, 18, 15, 100, 102, 52, 27, 22, 100, 51, 13, 35, 8, 100, 7, 100

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,10

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

EXAMPLE

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

MATHEMATICA

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

Select[Table[n/pd[n], {n, 1000}], IntegerQ] (* Ray Chandler, Mar 11 2014 *)

CROSSREFS

Cf. A055471, A113315.