A062519 Numbers for which (product of digits) / (sum of digits) is an integer > 1.

36, 44, 63, 66, 88, 138, 145, 154, 159, 167, 176, 183, 189, 195, 198, 224, 235, 242, 246, 253, 257, 264, 268, 275, 279, 286, 297, 318, 325, 333, 345, 347, 352, 354, 357, 369, 374, 375, 381, 396, 415, 422, 426, 435, 437, 448, 451, 453, 456, 459, 462, 465

Offset: 1

Author

Amarnath Murthy, Jun 26 2001

Keywords

• nonn
• base
• easy

Examples

			63 is a member as (6*3)/(6+3) = 2 > 1.
		

Links

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

Crossrefs

Sequence A061013 allows product = sum.

Programs

Mathematica

pdsdQ[n_]:=Module[{idn=IntegerDigits[n],r},r=Times@@idn/Total[idn];IntegerQ[ r]&&r>1]; Select[Range[500],pdsdQ] (* Harvey P. Dale, Dec 22 2019 *)

PARI

ok(n)={my(d=digits(n), p=vecprod(d), s=vecsum(d)); p > s && p%s == 0} \\ Andrew Howroyd, Sep 17 2024

Extensions

Corrected and extended by Larry Reeves (larryr(AT)acm.org), Jun 29 2001

Offset changed by Andrew Howroyd, Sep 17 2024