login
A257629
Duplicate of A276729.
0
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
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
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