This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A062996 #18 Dec 05 2024 14:46:22 %S A062996 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 A062996 50,51,60,61,70,71,80,81,90,91,100,101,102,103,104,105,106,107,108, %U A062996 109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,130,131,132 %N A062996 Numbers whose sum of digits is greater than or equal to its product of digits. %H A062996 Harry J. Smith, <a href="/A062996/b062996.txt">Table of n, a(n) for n = 1..1000</a> %t A062996 Select[Range[150],Total[IntegerDigits[#]]>=Times@@IntegerDigits[#]&] (* _Harvey P. Dale_, Sep 27 2023 *) %o A062996 (PARI) isok(k)={my(d=digits(k)); vecsum(d) >= vecprod(d)} \\ _Harry J. Smith_, Aug 15 2009 %Y A062996 Cf. A007953, A007954, A034710, A062329, A062996, A062997, A062998, A062999. %K A062996 base,nonn %O A062996 1,2 %A A062996 _Henry Bottomley_, Jun 29 2001