A070382 a(n) = 5^n mod 34.

1, 5, 25, 23, 13, 31, 19, 27, 33, 29, 9, 11, 21, 3, 15, 7, 1, 5, 25, 23, 13, 31, 19, 27, 33, 29, 9, 11, 21, 3, 15, 7, 1, 5, 25, 23, 13, 31, 19, 27, 33, 29, 9, 11, 21, 3, 15, 7, 1, 5, 25, 23, 13, 31, 19, 27, 33, 29, 9, 11, 21, 3, 15, 7, 1, 5, 25, 23, 13, 31, 19, 27, 33, 29, 9, 11

Offset

0,2

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

Index entries for linear recurrences with constant coefficients, signature (1,0,0,0,0,0,0,-1,1). [R. J. Mathar, Apr 20 2010]

Formula

From R. J. Mathar, Apr 20 2010: (Start)

a(n) = a(n-1) - a(n-8) + a(n-9).

G.f.: ( -1-4*x-20*x^2+2*x^3+10*x^4-18*x^5+12*x^6-8*x^7-7*x^8 ) / ( (x-1)*(1+x^8) ). (End)

a(n) = a(n-16). - G. C. Greubel, Mar 16 2016

Mathematica

Mod[5^Range[0, 100], 34]  (* Harvey P. Dale, Mar 01 2011 *)
PowerMod[5, Range[0, 100], 34] (* or *) PadRight[{}, 120, {1, 5, 25, 23, 13, 31, 19, 27, 33, 29, 9, 11, 21, 3, 15, 7}] (* Harvey P. Dale, May 03 2018 *)

Prog

(Sage) [power_mod(5, n, 34) for n in range(0, 76)] # Zerinvary Lajos, Nov 26 2009
(PARI) a(n) = lift(Mod(5, 34)^n); \\ Altug Alkan, Mar 16 2016

Crossrefs

Sequence in context: A070061 A070376 A036139 * A271379 A192493 A265973

Adjacent sequences: A070379 A070380 A070381 * A070383 A070384 A070385

Keyword

nonn

Author

N. J. A. Sloane, May 12 2002

Status

approved