A167545 n^6 mod 16.

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, 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, 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

Offset: 0

Author

Zerinvary Lajos, Nov 06 2009

Keywords

• nonn
• easy

Programs

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 *)

PARI

a(n)=n^6%16 \\ Charles R Greathouse IV, Apr 06 2016

Sage

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