OFFSET
1,1
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..10000
MAPLE
seq(ithprime(n) mod 6, n=1..105); # Nathaniel Johnston, Jun 29 2011
MATHEMATICA
Table[Mod[Prime[n], 6], {n, 105}] (* Nathaniel Johnston, Jun 29 2011 *)
Mod[Prime[Range[100]], 6] (* Vincenzo Librandi, May 06 2014 *)
PROG
(PARI) primes(105)%6 \\ Zak Seidov, Mar 25 2012
(Magma) [p mod 6: p in PrimesUpTo(500)]; // Vincenzo Librandi, May 06 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved