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,1

Links

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

Example

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

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 *)

Prog

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

Crossrefs

Sequence A061013 allows product = sum.

Sequence in context: A239802 A266242 A274241 * A138566 A062034 A250641

Adjacent sequences: A062516 A062517 A062518 * A062520 A062521 A062522

Keyword

nonn,base,easy

Author

Amarnath Murthy, Jun 26 2001

Extensions

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

Offset changed by Andrew Howroyd, Sep 17 2024

Status

approved