login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A062996 Sum of digits is greater than or equal to product of digits. 9

%I #11 Sep 27 2023 12:49:02

%S 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,

%T 50,51,60,61,70,71,80,81,90,91,100,101,102,103,104,105,106,107,108,

%U 109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,130,131,132

%N Sum of digits is greater than or equal to product of digits.

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

%t Select[Range[150],Total[IntegerDigits[#]]>=Times@@IntegerDigits[#]&] (* _Harvey P. Dale_, Sep 27 2023 *)

%o (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("b062996.txt", n++, " ", a); if (n==1000, break)) ) } \\ _Harry J. Smith_, Aug 15 2009

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

%K base,nonn

%O 1,2

%A _Henry Bottomley_, Jun 29 2001

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 24 20:08 EDT 2024. Contains 371963 sequences. (Running on oeis4.)