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

Links

Table of n, a(n) for n=0..104.

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

(SageMath) [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

Sequence in context: A259405 A340879 A086199 * A272965 A059058 A343587

Adjacent sequences: A167542 A167543 A167544 * A167546 A167547 A167548

Keyword

nonn,easy

Author

Zerinvary Lajos, Nov 06 2009

Status

approved