A244736 Numbers k such that (prime(k) mod 5) is even.

1, 3, 4, 7, 8, 10, 12, 15, 17, 19, 22, 24, 25, 28, 29, 31, 33, 34, 35, 37, 39, 41, 45, 46, 49, 50, 52, 55, 57, 59, 63, 66, 68, 69, 70, 72, 73, 75, 77, 78, 80, 81, 85, 87, 88, 91, 92, 93, 95, 97, 101, 102, 104, 106, 107, 109, 111, 113, 114, 118, 120, 123, 127

Offset

1,2

Comments

Complement of A244737.

Links

Clark Kimberling, Table of n, a(n) for n = 1..1000

Example

k   prime(k)  mod 5  mod 2
1      2        2      0
2      3        3      1
3      5        0      0
4      7        2      0
5     11        1      1
6     13        3      1

Maple

A244736:=n->`if`(type(ithprime(n) mod 5, even), n, NULL): seq(A244736(n), n=1..150); # Wesley Ivan Hurt, Jul 06 2014

Mathematica

z = 300; u = Mod[Table[Mod[Prime[n], 5], {n, 1, z}], 2] (* A244735 *)
Flatten[Position[u, 0]]  (* A244736 *)
Flatten[Position[u, 1]]  (* A244737 *)
Position[Mod[Prime[Range[130]], 5], _?EvenQ]//Flatten (* Harvey P. Dale, Jan 28 2019 *)

Crossrefs

Cf. A039703, A244735, A244737.

Sequence in context: A184820 A189521 A285346 * A138971 A189750 A153144

Adjacent sequences: A244733 A244734 A244735 * A244737 A244738 A244739

Keyword

nonn,easy

Author

Clark Kimberling, Jul 05 2014

Status

approved