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