A191562 a(n) = 7^n mod 3*n.

1, 1, 1, 1, 7, 1, 7, 1, 1, 19, 7, 1, 7, 7, 28, 1, 7, 1, 7, 1, 28, 49, 7, 1, 7, 49, 1, 49, 7, 19, 7, 1, 46, 49, 28, 1, 7, 49, 109, 1, 7, 91, 7, 25, 82, 49, 7, 1, 49, 49, 37, 61, 7, 1, 43, 49, 1, 49, 7, 1, 7, 49, 28, 1, 37, 37, 7, 157, 136, 49, 7, 1, 7, 49

Offset

1,5

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A083528, A083529, A083530.

Sequence in context: A199076 A132728 A083530 * A296472 A171544 A344698

Adjacent sequences: A191559 A191560 A191561 * A191563 A191564 A191565

Keyword

nonn,easy

Author

Vincenzo Librandi, Jul 31 2011

Status

approved