A066577 - OEIS

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

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

OFFSET

1,10

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

MATHEMATICA

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

PROG

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

CROSSREFS