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