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,1

Links

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

Mathematica

Select[Range[128], (Plus @@ IntegerDigits[ # ]) < (Times @@ IntegerDigits[ # ]) &] (Alonso del Arte, May 16 2005)

Prog

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

Crossrefs

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

Sequence in context: A165844 A343634 A291511 * A241889 A007638 A031332

Adjacent sequences: A062996 A062997 A062998 * A063000 A063001 A063002

Keyword

base,nonn

Author

Henry Bottomley, Jun 29 2001

Status

approved