login
A185709
Characteristic function of positive numbers that are primes ending in 9.
7
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
OFFSET
1
MATHEMATICA
Table[If[PrimeQ[n]&&Mod[n, 10]==9, 1, 0], {n, 120}] (* Harvey P. Dale, Oct 22 2017 *)
PROG
(Scheme) (define (A185709 n) (if (= 9 (modulo n 10)) (A010051 n) 0)) ;; Antti Karttunen, Dec 06 2017
CROSSREFS
Characteristic function of A030433.
Cf. A010051.
Sequence in context: A304571 A181838 A181837 * A011732 A353473 A011731
KEYWORD
base,nonn
AUTHOR
N. J. A. Sloane, Feb 10 2011
STATUS
approved