A039705 a(n) = n-th prime modulo 7.

2, 3, 5, 0, 4, 6, 3, 5, 2, 1, 3, 2, 6, 1, 5, 4, 3, 5, 4, 1, 3, 2, 6, 5, 6, 3, 5, 2, 4, 1, 1, 5, 4, 6, 2, 4, 3, 2, 6, 5, 4, 6, 2, 4, 1, 3, 1, 6, 3, 5, 2, 1, 3, 6, 5, 4, 3, 5, 4, 1, 3, 6, 6, 3, 5, 2, 2, 1, 4, 6, 3, 2, 3, 2, 1, 5, 4, 5, 2, 3, 6, 1, 4, 6, 5, 2, 1, 2, 6, 1, 5, 3, 4, 1, 2, 6, 5, 3, 5, 2, 1, 4, 3, 2, 4

Offset

1,1

Comments

a(A049084(A045370(n-1))) is even; a(A049084(A045415(n-1))) is odd. - Reinhard Zumkeller, Feb 25 2008

Links

R. Zumkeller, Table of n, a(n) for n = 1..1000

Maple

seq(ithprime(n) mod 7, n=1..105); # Nathaniel Johnston, Jun 29 2011

Mathematica

Table[Mod[Prime[n], 7], {n, 105}] (* Nathaniel Johnston, Jun 29 2011 *)
Mod[Prime[Range[100]], 7] (* Vincenzo Librandi, May 06 2014 *)

Prog

(Magma) [p mod(7): p in PrimesUpTo(500)]; // Vincenzo Librandi, May 06 2014
(PARI) primes(100)%7 \\ Charles R Greathouse IV, May 06 2014

Crossrefs

Cf. A039701-A039704, A039706, A038194, A007652, A039709-A039715.

Sequence in context: A284214 A174548 A068909 * A254271 A082118 A079344

Adjacent sequences: A039702 A039703 A039704 * A039706 A039707 A039708

Keyword

nonn,easy

Author

Clark Kimberling

Status

approved