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 A199978 #10 Aug 03 2014 14:01:35 %S A199978 10,20,25,30,40,45,50,52,54,55,56,58,60,65,69,70,78,80,85,87,90,95,96, %T A199978 100,102,104,105,106,108,110,120,125,130,140,145,150,152,154,155,156, %U A199978 158,159,160,165,169,170,178,180,185,187,190,195,196,200,201,202 %N A199978 Nonprime numbers whose multiplicative digital root is 0. %C A199978 Complement of A199977 with respect to A034048. %e A199978 Number 58 is in sequence because 5*8 = 40, 4*0 = 0. %t A199978 digRoot[n_] := Module[{k = n}, While[k > 9, k = Times @@ IntegerDigits[k]]; k]; Select[Range[300], ! PrimeQ[#] && digRoot[#] == 0 &] (* _T. D. Noe_, Nov 23 2011 *) %Y A199978 Cf. A199977 (primes whose multiplicative digital root is 0). %K A199978 nonn,base %O A199978 1,1 %A A199978 _Jaroslav Krizek_, Nov 13 2011