The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,11 LINKS 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 2 18:17 EDT 2020. Contains 334787 sequences. (Running on oeis4.)