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

 

Logo


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

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

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.

License Agreements, Terms of Use, Privacy Policy. .

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