|
| |
|
|
A280355
|
|
Numbers that are divisible by the sum of their digits and for which the sum of digits equals the product of digits.
|
|
1
|
|
|
|
1, 2, 3, 4, 5, 6, 7, 8, 9, 132, 312, 4112, 11133, 11313, 11331, 13113, 13131, 13311, 22112, 31113, 31131, 31311, 33111, 111216, 111612, 112116, 116112, 121116, 161112, 211116, 611112, 1111712, 11111232, 11112132, 11112312, 11113212, 11118112, 11121132, 11121312, 11123112, 11131212, 11132112
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
|
|
|
EXAMPLE
|
132 is in the sequence because 1 + 3 + 2 = 1*3*2 = 6 and 6 divides 132.
|
|
|
MATHEMATICA
|
Select[Range[11300000], Divisible[#1, (Plus @@ IntegerDigits[#1])] && (Plus @@ IntegerDigits[#1]) == (Times @@ IntegerDigits[#1]) &]
|
|
|
PROG
|
(PARI) isok(n) = (d=digits(n)) && ((n % vecsum(d)) == 0) && (vecsum(d) == prod(k=1, #d, d[k])); \\ Michel Marcus, Jan 02 2017
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn,base,easy
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
