A288069 Quotients obtained when the Zuckerman numbers are divided by the product of their digits.
1, 1, 1, 1, 1, 1, 1, 1, 1, 11, 6, 3, 3, 2, 111, 56, 23, 8, 22, 9, 9, 5, 53, 18, 14, 52, 21, 4, 18, 51, 13, 8, 7, 17, 1111, 556, 371, 223, 186, 377, 28, 37, 19, 303, 12, 437, 74, 28, 59, 9, 49, 528, 67, 93, 27, 1037, 174, 22, 151, 13, 184, 29, 514, 66, 46
Offset: 1
Examples
a(11) = 12/(1*2) = 6; a(13) = 24/(2*4) = 3.
Links
- Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Programs
-
Maple
f:= proc(n) local L,p; p:= convert(convert(n,base,10),`*`); if p > 0 then if n mod p = 0 then return n/p fi fi end proc: map(f, [$1..10^4]); # Robert Israel, Jun 05 2017
-
Mathematica
Select[Table[n/Max[Times@@IntegerDigits[n],Pi/100],{n,5000}],IntegerQ] (* Harvey P. Dale, Aug 16 2021 *)
Comments