A194808 Twin primes modulo 5.

3, 0, 2, 1, 3, 2, 4, 4, 1, 1, 3, 4, 1, 1, 3, 1, 3, 2, 4, 2, 4, 4, 1, 4, 1, 1, 3, 2, 4, 2, 4, 4, 1, 4, 1, 1, 3, 1, 3, 2, 4, 4, 1, 1, 3, 1, 3, 1, 3, 4, 1, 4, 1, 2, 4, 1, 3, 4, 1, 4, 1, 1, 3, 2, 4, 2, 4, 1, 3, 4, 1, 1, 3, 4, 1, 1, 3, 1, 3, 1, 3, 4, 1, 2, 4, 4, 1, 1

Offset

1,1

Links

Table of n, a(n) for n=1..88.

Formula

a(n) = A001097(n) mod 5.

Mathematica

Mod[Select[Prime[Range[300]], PrimeQ[# - 2] || PrimeQ[# + 2] &], 5] (* T. D. Noe, May 21 2012 *)
Mod[Union[Flatten[Select[Partition[Prime[Range[300]], 2, 1], #[[2]]-#[[1]] == 2&]]], 5] (* Harvey P. Dale, Apr 25 2018 *)

Crossrefs

Sequence in context: A238133 A317922 A337320 * A329204 A268464 A165066

Adjacent sequences: A194805 A194806 A194807 * A194809 A194810 A194811

Keyword

nonn

Author

Jiri Mazurek, May 17 2012

Status

approved