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 A064154 #28 Sep 10 2018 04:41:30 %S A064154 0,1,2,3,4,5,6,7,8,9,36,44,63,159,167,176,195,235,253,325,333,352,519, %T A064154 523,532,591,617,671,716,761,915,951,1247,1274,1344,1427,1434,1443, %U A064154 1472,1724,1742,2147,2174,2226,2262,2417,2471,2622,2714,2741,3144,3414 %N A064154 Numbers whose product of digits equals the number of digits times the sum of digits. %C A064154 A subset of A061013. %H A064154 Giovanni Resta, <a href="/A064154/b064154.txt">Table of n, a(n) for n = 1..10000</a> (first 1001 terms from Harry J. Smith) %e A064154 36 belongs to the sequence because 3*6 = 18 and 2*(3+6) = 18. %t A064154 Select[Range[0, 3414], (d = IntegerDigits[#]; Times @@ d == Length[d] Plus @@ d) &] (* _Giovanni Resta_, Jun 25 2018 *) %o A064154 (PARI) for(n=0,10000,my(v=digits(n));if(vecprod(v)==#v*vecsum(n),print1(n,", "))) \\ _Derek Orr_, Sep 09 2018 %Y A064154 Cf. A061013, A316147. %K A064154 easy,nonn,base %O A064154 1,3 %A A064154 _Felice Russo_, Sep 14 2001 %E A064154 Offset set to 1 by _Giovanni Resta_, Jun 25 2018