OFFSET
1
LINKS
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
KEYWORD
base,nonn
AUTHOR
N. J. A. Sloane, Feb 10 2011
STATUS
approved