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 A038369 #47 Feb 16 2025 08:32:38
%S A038369 0,1,135,144
%N A038369 Numbers k such that k = (product of digits of k) * (sum of digits of k).
%C A038369 The list is complete. Proof: One shows that the number of digits is at most 84 and then it is only necessary to consider numbers of the forms 2^i*3^j*7^k and 3^i*5^j*7^k. - _David W. Wilson_, May 16 2003
%H A038369 Alan Beardon, <a href="https://doi.org/10.2307/3618679">S.P numbers</a>, The Mathematical Gazette, 83(496), 25-32 (1999).
%H A038369 Alan Beardon, <a href="https://nrich.maths.org/1336">Sums and Products of Digits and SP Numbers</a>, NRICH, University of Cambridge, 1998.
%H A038369 Alan Beardon, <a href="https://nrich.maths.org/1339">Recent Developments on S.P. Numbers</a>, NRICH, University of Cambridge, 1998-2011.
%H A038369 E. Bussmann, <a href="https://doi.org/10.2307/3622010">S.P numbers in bases other than 10</a>, The Mathematical Gazette, 85(503), 245-248 (2001).
%H A038369 K. McLean, <a href="https://doi.org/10.2307/3618680">There are only three S.P numbers!</a>, The Mathematical Gazette, 83(496), 32-38 (1999).
%H A038369 S. Parameswaran, <a href="https://doi.org/10.2307/3619204">Numbers and their digits - a structural pattern</a>, Note 81.24, The Mathematical Gazette, 81(491), 263-263 (1997).
%H A038369 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Sum-ProductNumber.html">Sum-Product Number.</a>
%H A038369 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Digit.html">Digit.</a>
%F A038369 a(n) = A007953(a(n)) * A007954(a(n)).
%e A038369 144 belongs to the sequence because 1*4*4=16, 1+4+4=9 -> 16*9=144
%t A038369 pdsdQ[n_]:=Module[{idn=IntegerDigits[n]},(Total[idn]Times@@idn)==n]; Select[Range[0,150],pdsdQ] (* _Harvey P. Dale_, Apr 23 2011 *)
%o A038369 (PARI) is(n)=my(d=digits(n)); factorback(d)*vecsum(d)==n \\ _Charles R Greathouse IV_, Feb 06 2017
%Y A038369 Cf. A007953, A007954, A066308.
%Y A038369 Cf. A038364, A062237, A066282.
%K A038369 nice,nonn,fini,base,full
%O A038369 1,3
%A A038369 _Felice Russo_