A117814 - OEIS

A117814

a(n) = 1 if at least one of decimal digits of n is a prime, otherwise a(n)=0.

0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,1

COMMENTS

a(n) = 1 if n is a prime.

a(n) = 1 for almost all n. - Charles R Greathouse IV, Feb 26 2013

LINKS

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

MATHEMATICA

Table[If[Or@@PrimeQ[IntegerDigits[n]], 1, 0], {n, 0, 140}] (* Harvey P. Dale, Feb 26 2013 *)

PROG

(PARI) a(n)=#select(isprime, digits(n))>0 \\ Charles R Greathouse IV, Feb 26 2013