login
A062997
Sum of digits is strictly greater than product of digits.
6
10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 30, 31, 40, 41, 50, 51, 60, 61, 70, 71, 80, 81, 90, 91, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 130, 131, 140, 141, 150, 151, 160, 161, 170
OFFSET
1,1
COMMENTS
Every multiple of 10 is a term.
LINKS
EXAMPLE
118 is a term as 1 + 1 + 8 = 10, 10 > 8 and 8 = 1 * 1 * 8.
MATHEMATICA
Select[Range[170], (Plus @@ IntegerDigits[ # ]) > (Times @@ IntegerDigits[ # ]) &] (Alonso del Arte, May 16 2005)
PROG
(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
KEYWORD
base,nonn,easy
AUTHOR
Amarnath Murthy, Jun 27 2001
EXTENSIONS
Extended by Larry Reeves (larryr(AT)acm.org) and Henry Bottomley, Jun 29 2001
STATUS
approved