|
|
A062037
|
|
Positive numbers whose product of digits is 6 times their sum.
|
|
11
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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)
|
|
CROSSREFS
|
Cf. A011540, A034710, A062034, A062035, A062036, A062382, A062384, A062040, A062041, A062043, A062045.
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Corrected and extended by Larry Reeves (larryr(AT)acm.org), Jul 06 2001
|
|
STATUS
|
approved
|
|
|
|