|
| |
|
|
A023651
|
|
(product of digits of n) * (sum of digits of n) = 2n.
|
|
0
| | |
|
|
|
OFFSET
| 0,2
|
|
|
MATHEMATICA
| Do[ If[ 2n == Apply[ Times, IntegerDigits[n]] Apply[ Plus, IntegerDigits[n]], Print[n]], {n, 0, 10^7} ]
|
|
|
CROSSREFS
| 2n = A007953(n) * A007954(n). Cf. A038369.
Sequence in context: A153711 A116049 A184236 * A116028 A175828 A153080
Adjacent sequences: A023648 A023649 A023650 * A023652 A023653 A023654
|
|
|
KEYWORD
| nonn,base,fini
|
|
|
AUTHOR
| Jason Earls (zevi_35711(AT)yahoo.com), Dec 11 2001
|
| |
|
|
