|
%I #13 Jun 28 2018 04:47:52
%S 10,11,12,13,14,15,16,17,18,19,20,21,30,31,40,41,50,51,60,61,70,71,80,
%T 81,90,91,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,
%U 115,116,117,118,119,120,121,122,130,131,140,141,150,151,160,161,170
%N Sum of digits is strictly greater than product of digits.
%C Every multiple of 10 is a term.
%H Harry J. Smith, <a href="/A062997/b062997.txt">Table of n, a(n) for n = 1..1000</a>
%e 118 is a term as 1 + 1 + 8 = 10, 10 > 8 and 8 = 1 * 1 * 8.
%t Select[Range[170], (Plus @@ IntegerDigits[ # ]) > (Times @@ IntegerDigits[ # ]) &] (_Alonso del Arte_, May 16 2005)
%o (PARI) SumD(x)= { s=0; while (x>9, s+=x-10*(x\10); x\=10); return(s + x) } ProdD(x)= { p=1; while (x>9, p*=(x-10*(x\10)); x\=10); return(p*x) } { n=0; for (a=1, 10^9, if (SumD(a) > ProdD(a), write("b062997.txt", n++, " ", a); if (n==1000, break)) ) } \\ _Harry J. Smith_, Aug 15 2009
%Y Cf. A007953, A007954, A034710, A062329, A062996, A062998, A062999.
%K base,nonn,easy
%O 1,1
%A _Amarnath Murthy_, Jun 27 2001
%E Extended by Larry Reeves (larryr(AT)acm.org) and _Henry Bottomley_, Jun 29 2001
|
