login
A185706
Characteristic function of positive numbers that are primes ending in 3.
6
0, 0, 1, 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, 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, 1, 0, 0, 0, 0, 0, 0, 0
OFFSET
1
MATHEMATICA
Array[Boole@ And[PrimeQ@ #, Mod[#, 10] == 3] &, 105] (* Michael De Vlieger, Dec 16 2017 *)
Table[If[PrimeQ[n]&&Mod[n, 10]==3, 1, 0], {n, 150}] (* Harvey P. Dale, Dec 10 2021 *)
PROG
(PARI) A185706(n) = ((3==(n%10))&isprime(n)); \\ Antti Karttunen, Dec 16 2017
CROSSREFS
Characteristic function of A030431.
Cf. A185709.
Sequence in context: A072609 A185012 A328794 * A358759 A025455 A288167
KEYWORD
base,nonn
AUTHOR
N. J. A. Sloane, Feb 10 2011
STATUS
approved