A062997 Numbers whose sum of digits is strictly greater than its 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

Author

Amarnath Murthy, Jun 27 2001

Keywords

• base
• nonn
• easy
• look

Comments

Every multiple of 10 is a term.

Examples

			118 is a term as 1 + 1 + 8 = 10, 10 > 8 and 8 = 1 * 1 * 8.
		

Links

• Harry J. Smith, Table of n, a(n) for n = 1..1000
• Michael De Vlieger, Log log scatterplot of a(n), n = 1..10^6.

Crossrefs

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

Programs

Mathematica

Select[Range[170], (Plus @@ IntegerDigits[ # ]) > (Times @@ IntegerDigits[ # ]) &] (* Alonso del Arte, May 16 2005 *)

PARI

isok(k)={my(d=digits(k)); vecsum(d) > vecprod(d)} \\ Harry J. Smith, Aug 15 2009

Extensions

Extended by Larry Reeves (larryr(AT)acm.org) and Henry Bottomley, Jun 29 2001