A062997 Sum of digits is strictly greater than product of digits.

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

Harry J. Smith, Table of n, a(n) for n = 1..1000

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

Cf. A007953, A007954, A034710, A062329, A062996, A062998, A062999.

Sequence in context: A357929 A322322 A038368 * A110429 A359841 A182363

Adjacent sequences: A062994 A062995 A062996 * A062998 A062999 A063000

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