%I #14 Mar 29 2023 10:28:25
%S 39,49,55,57,66,68,69,74,75,78,86,87,88,93,94,95,96,98,147,155,159,
%T 166,168,169,174,175,178,186,187,188,189,194,195,196,198,236,238,246,
%U 247,248,249,264,266,267,272,274,276,279,284,288,289,292,294,297,298,299
%N Composite numbers whose multiplicative persistence is 3.
%C Complement of A046503 with respect to A046512.
%H Harvey P. Dale, <a href="/A199993/b199993.txt">Table of n, a(n) for n = 1..1000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/MultiplicativePersistence.html">Multiplicative Persistence</a>
%F { A046512 } minus { A046503 }.
%e 147 -> 1 * 4 * 7 -> [ 28 ] -> 2 * 8 -> [ 16 ] -> 1 * 6 -> [ 6 ] -> one digit in three steps.
%t Select[Range[300],CompositeQ[#]&&Length[NestWhileList[Times@@ IntegerDigits[ #]&,#,#>9&]] == 4&] (* _Harvey P. Dale_, Mar 29 2023 *)
%Y Cf. A046503 (primes whose multiplicative persistence is 3).
%K nonn,base
%O 1,1
%A _Jaroslav Krizek_, Nov 13 2011