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 A051804 #8 Feb 13 2017 21:06:13 %S A051804 2,12,20,21,26,34,37,43,45,54,59,62,69,73,95,96,102,112,120,121,126, %T A051804 134,137,143,145,154,159,162,169,173,195,196,200,201,206,210,211,216, %U A051804 223,225,232,239,252,260,261,268,278,279,286 %N A051804 Numbers with nonzero multiplicative digital root 2. %H A051804 <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>. %F A051804 A051802^-1(2) %t A051804 nzd[n_]:=Select[IntegerDigits[n],#!=0&]; dr2Q[m_]:=NestWhile[Times@@ nzd[#]&, m,#>9&]==2; Select[Range[300],dr2Q] (* _Harvey P. Dale_, Jul 01 2015 *) %Y A051804 Part of histogram of A051802. %K A051804 nonn,easy,base %O A051804 1,1 %A A051804 _Dan Hoey_, Dec 09 1999