A257629 Duplicate of A276729.

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, 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, 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

Offset: 0

Author

Giovanni Teofilatto, Jul 12 2015

Keywords

• dead

Examples

			a(10344) = 4 because 4 of the digits of 10344 (1, 0, 4 and 4) are nonprime.
		

Crossrefs

Cf. A055642 (number of digits), A193238 (number of prime digits), A046034.

Programs

Mathematica

a[n_] := Length@ Intersection[ IntegerDigits[n], {0, 1, 4, 6, 8, 9}]; a/@ Range[0, 90] (* Giovanni Resta, Jul 14 2015 *)
Table[Count[IntegerDigits[n],?(!PrimeQ[#]&)],{n,0,100}] (* _Harvey P. Dale, Jan 16 2017 *)

Formula

a(n) = A055642(n) - A193238(n). - Michel Marcus, Jul 14 2015

Extensions

Corrected and extended by Giovanni Resta, Jul 14 2015

Corrected and extended by Harvey P. Dale, Jan 16 2017