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 A051811 #8 Feb 13 2017 21:06:53
%S A051811 9,19,33,90,91,109,119,133,190,191,259,295,303,313,330,331,356,365,
%T A051811 529,536,563,592,635,653,900,901,910,911,925,952,1009,1019,1033,1090,
%U A051811 1091,1109,1119,1133,1190,1191,1259,1295,1303
%N A051811 Numbers with nonzero multiplicative digital root 9.
%H A051811 <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%F A051811 A051802^-1(9)
%t A051811 nzdr9[n_]:=Module[{idn=Select[IntegerDigits[n],#!=0&]},Times@@idn]; nzdrQ[ n_]:= NestWhile[nzdr9[#]&,n,#>9&]==9; Select[Range[2000],nzdrQ] (* _Harvey P. Dale_, Sep 09 2014 *)
%Y A051811 Part of histogram of A051802.
%K A051811 nonn,easy,base
%O A051811 1,1
%A A051811 _Dan Hoey_, Dec 09 1999