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 A096930 #4 Sep 15 2019 13:42:38 %S A096930 11014,100774,111014,412055,510142,511146,633296,931395,983025, %T A096930 1008305,1011125,1031414,1100774,1101642,1108305,1111014,1412055, %U A096930 1510142,1511146,1633296,1931395,1983025,2011125,2011305,2012725,2110145 %N A096930 Numbers n for which there are exactly nine k such that n = k + (product of nonzero digits of k). %e A096930 88486, 96454, 99073, 99154, 99316, 100594, 100654, 100718 and 100732 are the only nine k such that k + (product of nonzero digits of k) = 100774, hence 100774 is a term. %t A096930 Select[Tally[Table[n+Times@@DeleteCases[IntegerDigits[n],0],{n, 2111000}]],#[[2]]==9&][[All,1]]//Sort (* _Harvey P. Dale_, Sep 15 2019 *) %o A096930 (PARI) {c=9;z=2120000;v=vector(z);for(n=1,z+1,k=addpnd(n);if(k<=z,v[k]=v[k]+1));for(j=1,length(v),if(v[j]==c,print1(j,",")))} \\for function addpnd see A096922 %Y A096930 Cf. A063114, A096347, A096922 - A096929, A096931. %K A096930 nonn,base %O A096930 1,1 %A A096930 _Klaus Brockhaus_, Jul 15 2004