A191561 a(n) = 2^n mod 3*n

2, 4, 8, 4, 2, 10, 2, 16, 26, 4, 2, 28, 2, 4, 8, 16, 2, 28, 2, 16, 8, 4, 2, 64, 32, 4, 80, 16, 2, 64, 2, 64, 8, 4, 53, 28, 2, 4, 8, 16, 2, 64, 2, 16, 107, 4, 2, 64, 128, 124, 8, 16, 2, 82, 98, 88, 8, 4, 2, 136, 2, 4, 134, 64, 32, 64, 2, 16, 8, 184, 2, 136, 2, 4

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

Table[PowerMod[2, n, 3 n], {n, 100}] (* Vincenzo Librandi, Jun 12 2016 *)

Prog

(Magma) [Modexp(2, n, 3*n): n in [1..100]]; // Vincenzo Librandi, Jun 12 2016
(PARI) a(n)=lift(Mod(2, 3*n)^n) \\ Charles R Greathouse IV, Dec 27 2011

Crossrefs

Cf. A083528, A083529, A083530.

Sequence in context: A344537 A349104 A059884 * A021805 A031401 A191333

Adjacent sequences: A191558 A191559 A191560 * A191562 A191563 A191564

Keyword

nonn,easy

Author

Vincenzo Librandi, Jul 31 2011

Status

approved