%I #4 Jan 17 2017 16:36:47
%S 1,4,1,1,2,1,16,4,16,1,128,256,16,256,16,256,2,1,16,4,16,4096,65536,
%T 256,16,256,16384,256,33554432,16,16,256,16,1,65536,256,2,1048576,16,
%U 256,65536,4294967296,16,4,16,4294967296,17179869184,256,16,4294967296,2048
%N 2^(2^n mod n-1).
%H Harvey P. Dale, <a href="/A112985/b112985.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n)=2^A112983(n).
%t Join[{1,4},Table[2^PowerMod[2,n,n-1],{n,2,60}]] (* _Harvey P. Dale_, Jan 17 2017 *)
%K easy,nonn
%O 0,2
%A _Paul Barry_, Oct 08 2005
|