A066577 a(n) = floor(n/(product of nonzero digits of n)).

1, 1, 1, 1, 1, 1, 1, 1, 1, 10, 11, 6, 4, 3, 3, 2, 2, 2, 2, 10, 10, 5, 3, 3, 2, 2, 1, 1, 1, 10, 10, 5, 3, 2, 2, 2, 1, 1, 1, 10, 10, 5, 3, 2, 2, 1, 1, 1, 1, 10, 10, 5, 3, 2, 2, 1, 1, 1, 1, 10, 10, 5, 3, 2, 2, 1, 1, 1, 1, 10, 10, 5, 3, 2, 2, 1, 1, 1, 1, 10, 10, 5, 3, 2, 2, 1, 1, 1, 1, 10, 10, 5, 3, 2, 2, 1

Offset: 1

Author

Amarnath Murthy, Dec 20 2001

Keywords

• nonn
• base

Comments

a(12) = floor(12/(1*2)) = 6; a(14) = floor(14/(1*4)) floor(3.5) = 3.

Links

• Harry J. Smith, Table of n, a(n) for n = 1..1000

Programs

Mathematica

Table[Floor[n/Times@@(IntegerDigits[n]/.(0->1))],{n,100}] (* Harvey P. Dale, Apr 19 2014 *)

PARI

a(n) = { n\vecprod(select(x->x, digits(n))) } \\ Harry J. Smith, Mar 07 2010

Extensions

Terms a(38) - a(86) from Harry J. Smith, Mar 07 2010