%I #42 Aug 23 2019 02:42:17
%S 1,1,0,0,1,0,1,0,1,1,2,2,1,1,2,1,2,1,2,2,1,1,0,0,1,0,1,0,1,1,1,1,0,0,
%T 1,0,1,0,1,1,2,2,1,1,2,1,2,1,2,2,1,1,0,0,1,0,1,0,1,1,2,2,1,1,2,1,2,1,
%U 2,2,1,1,0,0,1,0,1,0,1,1,2,2,1,1,2,1,2,1,2,2,2,2,1,1,2,1,2,1,2,2,3
%N Duplicate of A276729.
%F a(n) = A055642(n) - A193238(n). - _Michel Marcus_, Jul 14 2015
%e a(10344) = 4 because 4 of the digits of 10344 (1, 0, 4 and 4) are nonprime.
%t a[n_] := Length@ Intersection[ IntegerDigits[n], {0, 1, 4, 6, 8, 9}]; a/@ Range[0, 90] (* _Giovanni Resta_, Jul 14 2015 *)
%t Table[Count[IntegerDigits[n],_?(!PrimeQ[#]&)],{n,0,100}] (* _Harvey P. Dale_, Jan 16 2017 *)
%Y Cf. A055642 (number of digits), A193238 (number of prime digits), A046034.
%K dead
%O 0,11
%A _Giovanni Teofilatto_, Jul 12 2015
%E Corrected and extended by _Giovanni Resta_, Jul 14 2015
%E Corrected and extended by _Harvey P. Dale_, Jan 16 2017