login
A244736
Numbers k such that (prime(k) mod 5) is even.
3
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
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
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jul 05 2014
STATUS
approved