A039710 a(n) = n-th prime modulo 12.

2, 3, 5, 7, 11, 1, 5, 7, 11, 5, 7, 1, 5, 7, 11, 5, 11, 1, 7, 11, 1, 7, 11, 5, 1, 5, 7, 11, 1, 5, 7, 11, 5, 7, 5, 7, 1, 7, 11, 5, 11, 1, 11, 1, 5, 7, 7, 7, 11, 1, 5, 11, 1, 11, 5, 11, 5, 7, 1, 5, 7, 5, 7, 11, 1, 5, 7, 1, 11, 1, 5, 11, 7, 1, 7, 11, 5, 1, 5, 1, 11

Offset

1,1

Links

Nathaniel Johnston, Table of n, a(n) for n = 1..10000

Maple

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

Mathematica

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

Prog

(Sage) [mod(p, 12) for p in primes(500)] # Bruno Berselli, May 05 2014
(Magma) [p mod(12): p in PrimesUpTo(500)]; // Vincenzo Librandi, May 06 2014

Crossrefs

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

Sequence in context: A039711 A194261 A194262 * A087173 A179335 A330994

Adjacent sequences: A039707 A039708 A039709 * A039711 A039712 A039713

Keyword

nonn,easy

Author

Clark Kimberling

Status

approved