login
n^6 mod 16.
0

%I #9 Dec 07 2019 12:18:26

%S 0,1,0,9,0,9,0,1,0,1,0,9,0,9,0,1,0,1,0,9,0,9,0,1,0,1,0,9,0,9,0,1,0,1,

%T 0,9,0,9,0,1,0,1,0,9,0,9,0,1,0,1,0,9,0,9,0,1,0,1,0,9,0,9,0,1,0,1,0,9,

%U 0,9,0,1,0,1,0,9,0,9,0,1,0,1,0,9,0,9,0,1,0,1,0,9,0,9,0,1,0,1,0,9,0,9,0,1,0

%N n^6 mod 16.

%t PowerMod[Range[0,110],6,16] (* or *) With[{nn=15},PadRight[{},8nn,{0,1,0,9,0,9,0,1}]] (* _Harvey P. Dale_, Nov 10 2011 *)

%o (Sage) [power_mod(n,6,16)for n in range(0, 105)] #

%o (PARI) a(n)=n^6%16 \\ _Charles R Greathouse IV_, Apr 06 2016

%K nonn,easy

%O 0,4

%A _Zerinvary Lajos_, Nov 06 2009