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 A199991 #9 Aug 03 2014 14:01:36
%S A199991 10,12,14,15,16,18,20,21,22,24,30,32,33,40,42,50,51,60,70,80,81,90,91,
%T A199991 100,102,104,105,106,108,110,111,112,114,115,116,117,118,119,120,121,
%U A199991 122,123,124,130,132,133,140,141,142,150,160,161,170,171,180,190
%N A199991 Nonprime numbers whose multiplicative persistence is 1.
%C A199991 Complement of A046501 with respect to A046510.
%e A199991 105 -> 1 * 0 * 5 = 0; one digit in one step.
%t A199991 persistence[n_] := Module[{cnt = 0, k = n}, While[k > 9, cnt++; k = Times @@ IntegerDigits[k]]; cnt]; Select[Range[200], ! PrimeQ[#] && persistence[#] == 1 &] (* _T. D. Noe_, Nov 23 2011 *)
%Y A199991 Cf. A046501 (primes whose multiplicative persistence is 1).
%K A199991 nonn,base
%O A199991 1,1
%A A199991 _Jaroslav Krizek_, Nov 13 2011