A064367 a(n) = 2^n mod prime(n).
0, 1, 3, 2, 10, 12, 9, 9, 6, 9, 2, 26, 33, 1, 9, 28, 33, 27, 13, 48, 8, 36, 47, 4, 95, 20, 76, 62, 23, 4, 8, 117, 68, 25, 138, 64, 150, 43, 61, 10, 72, 156, 40, 12, 73, 51, 48, 41, 24, 26, 71, 48, 32, 16, 128, 173, 74, 110, 118, 59, 30, 247, 202, 208, 284, 53, 128, 32, 139
Offset: 1
Keywords
Links
- Harry J. Smith, Table of n, a(n) for n = 1..1000
Programs
-
Maple
seq(2 &^ n mod ithprime(n), n=1..100); # Robert Israel, Jul 17 2017
-
Mathematica
Array[PowerMod[2, #, Prime@ #] &, 69] (* Michael De Vlieger, Jul 16 2017 *)
-
PARI
a(n) = { lift(Mod(2,prime(n))^n) } \\ Harry J. Smith, Sep 12 2009
Extensions
Definition corrected by Harry J. Smith, Sep 12 2009
Comments