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,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) ProdNzD(x)= { local(d, p=1); while (x>9, d=x%10; if (d, p*=d); x\=10); return(p*x) } { for (n=1, 1000, a=floor(n/ProdNzD(n)); write("b066577.txt", n, " ", a) ) } \\ Harry J. Smith, Mar 07 2010

Crossrefs

Sequence in context: A059514 A066355 A071206 * A071203 A105743 A105835

Adjacent sequences: A066574 A066575 A066576 * A066578 A066579 A066580

Keyword

nonn,base

Author

Amarnath Murthy, Dec 20 2001

Extensions

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

Status

approved