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

Links

Table of n, a(n) for n=0..100.

Formula

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

Example

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

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 *)

Crossrefs

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

Sequence in context: A035222 A136436 A276729 * A143331 A167677 A278387

Adjacent sequences: A257626 A257627 A257628 * A257630 A257631 A257632

Keyword

dead

Author

Giovanni Teofilatto, Jul 12 2015

Extensions

Corrected and extended by Giovanni Resta, Jul 14 2015

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

Status

approved