A070481 a(n) = n^3 mod 19.

0, 1, 8, 8, 7, 11, 7, 1, 18, 7, 12, 1, 18, 12, 8, 12, 11, 11, 18, 0, 1, 8, 8, 7, 11, 7, 1, 18, 7, 12, 1, 18, 12, 8, 12, 11, 11, 18, 0, 1, 8, 8, 7, 11, 7, 1, 18, 7, 12, 1, 18, 12, 8, 12, 11, 11, 18, 0, 1, 8, 8, 7, 11, 7, 1, 18, 7, 12, 1, 18, 12, 8, 12, 11, 11, 18, 0, 1, 8, 8, 7, 11, 7, 1, 18

Offset

0,3

Links

G. C. Greubel, 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, 1).

Formula

From G. C. Greubel, Mar 28 2016: (Start)

a(n) = a(n-19).

G.f.: (-x -8*x^2 -8*x^3 -7*x^4 -11*x^5 -7*x^6 -x^7 -18*x^8 -7*x^9 - 12*x^10 -x^11 -18*x^12 -12*x^13 -8*x^14 -12*x^15 -11*x^16 -11*x^17 - 18*x^18)/(-1 + x^19). (End)

Mathematica

Table[Mod[n^3, 19], {n, 0, 100}] (* Vincenzo Librandi, Jun 19 2014 *)
PowerMod[Range[0, 90], 3, 19] (* Harvey P. Dale, Feb 25 2015 *)

Prog

(Sage) [power_mod(n, 3, 19 )for n in range(0, 85)] # Zerinvary Lajos, Oct 29 2009
(Magma) [Modexp(n, 3, 19): n in [0..100]]; // Vincenzo Librandi, Mar 28 2016
(PARI) a(n)=n^3%19 \\ Charles R Greathouse IV, Apr 06 2016

Crossrefs

Cf. A008960.

Sequence in context: A350715 A294795 A173623 * A011109 A248622 A023411

Adjacent sequences: A070478 A070479 A070480 * A070482 A070483 A070484

Keyword

nonn,easy

Author

N. J. A. Sloane, May 12 2002

Status

approved