A062996 Numbers whose sum of digits is greater than or equal to its product of digits.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 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, 123, 130, 131, 132

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[150],Total[IntegerDigits[#]]>=Times@@IntegerDigits[#]&] (* Harvey P. Dale, Sep 27 2023 *)

PARI

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