|
Search: id:A055933
|
|
|
| A055933 |
|
Product of digits (not counting zeros) of n divides sum of digits of n. |
|
+0
1
|
|
| 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 20, 22, 30, 40, 50, 60, 70, 80, 90, 100, 101, 110, 111, 112, 121, 123, 132, 200, 202, 211, 213, 220, 231, 300, 312, 321, 400, 500, 600, 700, 800, 900, 1000, 1001, 1010, 1011, 1012, 1021, 1023, 1032, 1100, 1101, 1102, 1110
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Do[a=IntegerDigits[FromDigits[Sort[IntegerDigits[n]]]]; If[Mod[Apply[Plus,a],Apply[Times,a]]==0,Print[n]],{n,1,5000}]
|
|
CROSSREFS
|
Sequence in context: A061917 A125289 A096091 this_sequence A132578 A101318 A114801
Adjacent sequences: A055930 A055931 A055932 this_sequence A055934 A055935 A055936
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 17 2000
|
|
|
Search completed in 0.002 seconds
|
