A062382 Positive numbers whose product of digits is 5 times their sum.

257, 275, 345, 354, 435, 453, 527, 534, 543, 572, 725, 752, 1258, 1285, 1528, 1582, 1825, 1852, 2158, 2185, 2235, 2253, 2325, 2352, 2518, 2523, 2532, 2581, 2815, 2851, 3225, 3252, 3522, 5128, 5182, 5218, 5223, 5232, 5281, 5322, 5812, 5821, 8125, 8152

Offset

1,1

Links

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

Example

2235 belongs to the sequence as (2*2*3*5)/(2+2+3+5) = 60/12 = 5.

Mathematica

Select[Range[9000], Times@@IntegerDigits[#]==5*Total[IntegerDigits[#]]&] (* Harvey P. Dale, Mar 01 2012 *)

Prog

(PARI) isok(n) = my(d=digits(n)); vecprod(d)==5*vecsum(d) \\ Mohammed Yaseen, Aug 02 2022
(Python)
from math import prod
def ok(n): d = list(map(int, str(n))); return prod(d) == 5*sum(d)
print([k for k in range(1, 9000) if ok(k)]) # Michael S. Branicky, Aug 02 2022

Crossrefs

Cf. A011540, A034710, A062034, A062035, A062036, A062037, A062384, A062040, A062041, A062043, A062045.

Sequence in context: A273551 A288411 A060879 * A289560 A256776 A252279

Adjacent sequences: A062379 A062380 A062381 * A062383 A062384 A062385

Keyword

nonn,base,easy

Author

Amarnath Murthy, Jun 27 2001

Extensions

More terms from Larry Reeves (larryr(AT)acm.org), Jul 06 2001

Offset corrected by Mohammed Yaseen, Aug 02 2022

Status

approved