A244741 Numbers k such that (prime(k) mod 5) == 2 (mod 3).

1, 4, 7, 12, 15, 19, 25, 28, 31, 33, 37, 39, 45, 49, 55, 59, 63, 66, 68, 69, 73, 78, 88, 91, 93, 101, 102, 106, 107, 111, 113, 118, 123, 129, 134, 138, 139, 144, 148, 151, 154, 155, 159, 161, 163, 165, 168, 181, 184, 187, 195, 199, 203, 206, 211, 214, 217

Offset

1,2

Comments

Every positive integer is in exactly one of the sequences A244739, A024707, A244741.

Links

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

Example

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

Maple

A244741:=n->`if`(((ithprime(n) mod 5) mod 3) = 2, n, NULL): seq(A244741(n), n=1..250); # Wesley Ivan Hurt, Jul 06 2014

Mathematica

z = 300; u = Mod[Table[Mod[Prime[n], 5], {n, 1, z}], 3] (* A244738 *)
v1 = Flatten[Position[u, 0]]  (* A244739 *)
v2 = Flatten[Position[u, 1]]  (* A024707 *)
v3 = Flatten[Position[u, 2]]  (* A244741 *)

Crossrefs

Cf. A039703, A244738, A244739, A024707, A244735. Essentially the same as A049509.

Sequence in context: A276875 A310771 A310772 * A049509 A026360 A237514

Adjacent sequences: A244738 A244739 A244740 * A244742 A244743 A244744

Keyword

nonn,easy

Author

Clark Kimberling, Jul 05 2014

Status

approved