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

Links

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

Mathematica

Select[Range[150], Total[IntegerDigits[#]]>=Times@@IntegerDigits[#]&] (* Harvey P. Dale, Sep 27 2023 *)

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: A246094 A272269 A250394 * A085380 A335469 A374701

Adjacent sequences: A062993 A062994 A062995 * A062997 A062998 A062999

Keyword

base,nonn

Author

Henry Bottomley, Jun 29 2001

Status

approved