|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Extended by Larry Reeves (larryr(AT)acm.org) and Henry Bottomley, Jun 29 2001
|
|
STATUS
|
approved
|
|
|
|