A062998 Numbers with property that sum of digits is less than or equal to product of digits.

1, 2, 3, 4, 5, 6, 7, 8, 9, 22, 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

Offset

1,2

Links

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

Mathematica

Select[Range[100], Total[IntegerDigits[#]]<=Times@@IntegerDigits[#]&] (* Harvey P. Dale, Feb 21 2017 *)

Prog

(PARI) SumD(x)= { s=0; while (x>9, s+=x-10*(x\10); x\=10); return(s + x) } ProdD(x)= { p=1; while (x>9, p*=(x-10*(x\10)); x\=10); return(p*x) } { n=0; for (a=1, 10^9, if (SumD(a) <= ProdD(a), write("b062998.txt", n++, " ", a); if (n==1000, break)) ) } \\ Harry J. Smith, Aug 15 2009
(PARI) is_A062998(n)={normlp(n=digits(n), 1)<=prod(i=1, #n, n[i])} \\ M. F. Hasler, Oct 29 2014

Crossrefs

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

Not the same as A037344 (contains 124).

Sequence in context: A083434 A305463 A037344 * A249443 A299690 A318276

Adjacent sequences: A062995 A062996 A062997 * A062999 A063000 A063001

Keyword

base,nonn,easy

Author

Henry Bottomley, Jun 29 2001

Status

approved