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