A070703 - OEIS

A070703

a(n) = n^7 mod 22.

0, 1, 18, 9, 16, 3, 8, 17, 2, 15, 10, 11, 12, 7, 20, 5, 14, 19, 6, 13, 4, 21, 0, 1, 18, 9, 16, 3, 8, 17, 2, 15, 10, 11, 12, 7, 20, 5, 14, 19, 6, 13, 4, 21, 0, 1, 18, 9, 16, 3, 8, 17, 2, 15, 10, 11, 12, 7, 20, 5, 14, 19, 6, 13, 4, 21, 0, 1, 18, 9, 16, 3, 8, 17, 2, 15, 10, 11, 12, 7, 20, 5

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,3

LINKS

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

Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).

FORMULA

G.f.: x*(1 + 18*x + 9*x^2 +16*x^3 + 3*x^4 + 8*x^5 + 17*x^6 + 2*x^7 + 15*x^8 + 10*x^9 + 11*x^10 + 12*x^11 + 7*x^12 + 20*x^13 + 5*x^14 + 14*x^15 + 19*x^16 + 6*x^17 + 13*x^18 + 4*x^19 + 21*x^20)/(1 - x^22). - Ilya Gutkovskiy, Jun 17 2016

MATHEMATICA

PowerMod[Range[0, 90], 7, 22] (* Harvey P. Dale, Dec 25 2015 *)

PROG

(Sage) [power_mod(n, 7, 22)for n in range(0, 82)] # Zerinvary Lajos, Oct 28 2009

(PARI) a(n)=n^7%22 \\ Charles R Greathouse IV, Apr 06 2016

(Magma) [Modexp(n, 7, 22): n in [0..80]]; // Vincenzo Librandi, Jun 17 2016

CROSSREFS

Sequence in context: A337731 A169736 A112876 * A181761 A233471 A040309

Adjacent sequences: A070700 A070701 A070702 * A070704 A070705 A070706

KEYWORD

nonn,easy

AUTHOR

N. J. A. Sloane, May 13 2002

STATUS

approved