login
Duplicate of A276729.
0

%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