%I A114457
%S A114457 1,13,2,219,724,1285,3,23,7789816,11,10,2891,4,127,226,15,3248,163,52,
%T A114457 31,5,33,262,12857,24,325,16,243,38428,617,6,68177,172
%N 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.
%H A114457 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               Sum-ProductNumber.html">Sum-Product Number</a>
%t A114457 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 *)
%Y A114457 Cf. A038369.
%Y A114457 Sequence in context: A154354 A078421 A098222 this_sequence A010220 A104818 
               A117540
%Y A114457 Adjacent sequences: A114454 A114455 A114456 this_sequence A114458 A114459 
               A114460
%K A114457 nonn,base
%O A114457 0,2
%A A114457 Eric Weisstein (eric(AT)weisstein.com), Nov 28, 2005
%E A114457 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