login
A110923
Final two digits of prime(n), with leading zero omitted.
5
2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 1, 3, 7, 9, 13, 27, 31, 37, 39, 49, 51, 57, 63, 67, 73, 79, 81, 91, 93, 97, 99, 11, 23, 27, 29, 33, 39, 41, 51, 57, 63, 69, 71, 77, 81, 83, 93, 7, 11, 13, 17, 31, 37
OFFSET
1,1
COMMENTS
Primes modulo 100.
MAPLE
seq(ithprime(n) mod 100, n=1..100); # Nathaniel Johnston, Jun 29 2011
MATHEMATICA
Table[Mod[Prime[n], 100], {n, 100}] (* Ray Chandler, Oct 01 2005 *)
Mod[Prime[Range[100]], 100] (* Vincenzo Librandi, May 07 2014 *)
PROG
(Sage) [mod(p, 100) for p in primes(500)] # Bruno Berselli, May 05 2014
(Magma) [p mod(100): p in PrimesUpTo(500)]; // Vincenzo Librandi, May 07 2014
CROSSREFS
Sequence in context: A316903 A171041 A094742 * A137589 A301378 A052424
KEYWORD
nonn,base,easy
AUTHOR
Paolo P. Lava, Sep 23 2005
EXTENSIONS
Edited, corrected and extended by Ray Chandler, Oct 01 2005
STATUS
approved