proposed

approved

editing

proposed

Numbers n k with property that the sum of the digits of n k is strictly less than the product of the digits of nk.

Harry J. Smith, <a href="/A062999/b062999.txt">Table of n, a(n) for n = 1,...,1000</a>

(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("b062999.txt", n++, " ", a); if (n==1000, break)) ) } [From _\\ _Harry J. Smith_, Aug 15 2009]

approved

editing

Select[Range[128], (Plus @@ IntegerDigits[ # ]) < (Times @@ IntegerDigits[ # ]) &] (_Alonso Delarte (alonso.delarte(AT)gmail.com), del Arte_, May 16 2005)

_Henry Bottomley (se16(AT)btinternet.com), _, Jun 29 2001

(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("b062999.txt", n++, " ", a); if (n==1000, break)) ) } [From _Harry J. Smith (hjsmithh(AT)sbcglobal.net), _, Aug 15 2009]

Harry J. Smith, <a href="/A062999/b062999.txt">Table of n, a(n) for n=1,...,1000</a>

base,nonn,new

Harry J. Smith, <a href="b062999.txt">Table of n, a(n) for n=1,...,1000</a>

(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("b062999.txt", n++, " ", a); if (n==1000, break)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Aug 15 2009]

base,nonn,new

Sum Numbers n with property that the sum of the digits of n is strictly less than the product of the digits of n.

Select[Range[128], (Plus @@ IntegerDigits[ # ]) < (Times @@ IntegerDigits[ # ]) &] (Alonso Delarte (alonso.delarte(AT)gmail.com), May 16 2005)

base,nonn,new

Sum of digits is strictly less than 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

1,1

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

base,nonn

Henry Bottomley (se16(AT)btinternet.com), Jun 29 2001

approved