|
Search: id:A114457
|
|
|
| A114457 |
|
Smallest k such that abs(S(k)P(k)-k) equals n, where S(k) is the sum and P(k) is the product of decimal digits of k. |
|
+0
1
|
|
| 1, 13, 2, 219, 724, 1285, 3, 23, 7789816, 11, 10, 2891, 4, 127, 226, 15, 3248, 163, 52, 31, 5, 33, 262, 12857, 24, 325, 16, 243, 38428, 617, 6, 68177, 172
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Sum-Product Number
|
|
MATHEMATICA
|
f[n_] := Block[{k = 1}, While[id = IntegerDigits@k; Abs[(Plus @@ id)(Times @@ id) - k] != n, k++ ]; k]; Table[ f[n], {n, 0, 54}] (* Robert G. Wilson v *)
|
|
CROSSREFS
|
Cf. A038369.
Sequence in context: A031066 A078421 A098222 this_sequence A010220 A104818 A117540
Adjacent sequences: A114454 A114455 A114456 this_sequence A114458 A114459 A114460
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Eric Weisstein (eric(AT)weisstein.com), Nov 28, 2005
|
|
EXTENSIONS
|
a(33)>2*10^9; then sequence continues 62, 2275, 272, 22577, 118, 17, 40, 43, 7, 1339, 136, 25, 154, 143, 128, 125599, 34, 5619, 352, 1483, 18, 145, 8, 15457, 173, 14963, 60, 1727, 517, 1197, 1787456, 235, 642, 53, 116, ... - Robert G. Wilson v (rgwv(at)rgwv.com), Dec 14 2005
|
|
|
Search completed in 0.002 seconds
|
