A062999 Numbers whose sum of the digits is strictly less than its product of digits.

23, 24, 25, 26, 27, 28, 29, 32, 33, 34, 35, 36, 37, 38, 39, 42, 43, 44, 45, 46, 47, 48, 49, 52, 53, 54, 55, 56, 57, 58, 59, 62, 63, 64, 65, 66, 67, 68, 69, 72, 73, 74, 75, 76, 77, 78, 79, 82, 83, 84, 85, 86, 87, 88, 89, 92, 93, 94, 95, 96, 97, 98, 99, 124, 125, 126, 127

Offset: 1

Author

Henry Bottomley, Jun 29 2001

Keywords

• base
• nonn

Links

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

Crossrefs

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

Programs

Mathematica

Select[Range[128], (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