A185706 Characteristic function of positive numbers that are primes ending in 3.

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

Links

Antti Karttunen, Table of n, a(n) for n = 1..65539

Index entries for characteristic functions

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

Adjacent sequences: A185703 A185704 A185705 * A185707 A185708 A185709

Keyword

base,nonn

Author

N. J. A. Sloane, Feb 10 2011

Status

approved