%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