cp's OEIS Frontend

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.

A062997 Numbers whose sum of digits is strictly greater than its product of digits.

This page as a plain text file.
%I A062997 #21 Aug 11 2025 10:37:36
%S A062997 10,11,12,13,14,15,16,17,18,19,20,21,30,31,40,41,50,51,60,61,70,71,80,
%T A062997 81,90,91,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,
%U A062997 115,116,117,118,119,120,121,122,130,131,140,141,150,151,160,161,170
%N A062997 Numbers whose sum of digits is strictly greater than its product of digits.
%C A062997 Every multiple of 10 is a term.
%H A062997 Harry J. Smith, <a href="/A062997/b062997.txt">Table of n, a(n) for n = 1..1000</a>
%H A062997 Michael De Vlieger, <a href="/A062997/a062997.png">Log log scatterplot of a(n)</a>, n = 1..10^6.
%e A062997 118 is a term as 1 + 1 + 8 = 10, 10 > 8 and 8 = 1 * 1 * 8.
%t A062997 Select[Range[170], (Plus @@ IntegerDigits[ # ]) > (Times @@ IntegerDigits[ # ]) &] (* _Alonso del Arte_, May 16 2005 *)
%o A062997 (PARI) isok(k)={my(d=digits(k)); vecsum(d) > vecprod(d)} \\ _Harry J. Smith_, Aug 15 2009
%Y A062997 Cf. A007953, A007954, A034710, A062329, A062996, A062998, A062999.
%K A062997 base,nonn,easy,look
%O A062997 1,1
%A A062997 _Amarnath Murthy_, Jun 27 2001
%E A062997 Extended by Larry Reeves (larryr(AT)acm.org) and _Henry Bottomley_, Jun 29 2001