A062037 Positive numbers whose product of digits is 6 times their sum.

268, 286, 347, 374, 437, 473, 628, 682, 734, 743, 826, 862, 1269, 1296, 1348, 1356, 1365, 1384, 1438, 1483, 1536, 1563, 1629, 1635, 1653, 1692, 1834, 1843, 1926, 1962, 2169, 2196, 2237, 2273, 2327, 2334, 2343, 2372, 2433, 2619, 2691, 2723, 2732, 2916

Offset

1,1

Links

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

Example

2237 belongs to the sequence as (2*2*3*7)/(2+2+3+7) = 84/14 = 6.

Mathematica

p6sQ[n_]:=Module[{idn=IntegerDigits[n]}, Times@@idn==6*Total[idn]]; Select[ Range[ 3000], p6sQ] (* Harvey P. Dale, Aug 17 2014 *)

Prog

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

Crossrefs

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

Sequence in context: A186056 A236740 A278382 * A244194 A096613 A304388

Adjacent sequences: A062034 A062035 A062036 * A062038 A062039 A062040

Keyword

nonn,base,easy

Author

Amarnath Murthy, Jun 27 2001

Extensions

Corrected and extended by Larry Reeves (larryr(AT)acm.org), Jul 06 2001

Offset corrected by Mohammed Yaseen, Aug 02 2022

Status

approved