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 A096925 #4 Oct 12 2022 17:00:26 %S A096925 116,405,430,474,530,546,642,744,774,836,854,855,930,958,1038,1055, %T A096925 1070,1088,1104,1110,1116,1134,1154,1162,1236,1366,1400,1405,1418, %U A096925 1430,1455,1530,1642,1744,1774,1836,1854,1855,1930,1958,2112,2137,2185,2199,2205 %N A096925 Numbers n for which there are exactly four k such that n = k + (product of nonzero digits of k). %e A096925 279, 345, 381 and 401 are the only four k such that k + (product of nonzero digits of k) = 405, hence 405 is a term. %t A096925 Take[Select[Tally[Table[k+Times@@(IntegerDigits[k]/.(0->1)),{k,100000}]],#[[2]] == 4&][[All,1]]//Sort,50] (* _Harvey P. Dale_, Oct 12 2022 *) %o A096925 (PARI) {c=4;z=2210;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 A096925 Cf. A063114, A096347, A096922 - A096924, A096926 - A096931. %K A096925 nonn,base %O A096925 1,1 %A A096925 _Klaus Brockhaus_, Jul 15 2004