A112985 2^(2^n mod n-1).
1, 4, 1, 1, 2, 1, 16, 4, 16, 1, 128, 256, 16, 256, 16, 256, 2, 1, 16, 4, 16, 4096, 65536, 256, 16, 256, 16384, 256, 33554432, 16, 16, 256, 16, 1, 65536, 256, 2, 1048576, 16, 256, 65536, 4294967296, 16, 4, 16, 4294967296, 17179869184, 256, 16, 4294967296, 2048
Offset: 0
Links
- Harvey P. Dale, Table of n, a(n) for n = 0..1000
Programs
-
Mathematica
Join[{1,4},Table[2^PowerMod[2,n,n-1],{n,2,60}]] (* Harvey P. Dale, Jan 17 2017 *)
Formula
a(n)=2^A112983(n).