OFFSET
0,4
MATHEMATICA
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 *)
PROG
(Sage) [power_mod(n, 6, 16)for n in range(0, 105)] #
(PARI) a(n)=n^6%16 \\ Charles R Greathouse IV, Apr 06 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Zerinvary Lajos, Nov 06 2009
STATUS
approved