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

Offset: 1

Author

Amarnath Murthy, Dec 20 2001

Keywords

• nonn
• base

Examples

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

Links

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

Crossrefs

Cf. A055471, A113315.

Programs

Mathematica

pd[n_] := Times @@ Select[IntegerDigits[n], # > 0 &];
Select[Table[n/pd[n], {n, 1000}], IntegerQ] (* Ray Chandler, Mar 11 2014 *)

Extensions

Corrected and extended by Ray Chandler, Mar 11 2014