A094920 a(n) = (5^n-1)/4 mod n.

0, 0, 1, 0, 1, 0, 1, 0, 4, 6, 1, 0, 1, 6, 1, 0, 1, 0, 1, 16, 10, 6, 1, 0, 6, 6, 13, 16, 1, 6, 1, 0, 31, 6, 11, 0, 1, 6, 31, 16, 1, 0, 1, 24, 31, 6, 1, 0, 29, 6, 31, 0, 1, 0, 11, 48, 31, 6, 1, 36, 1, 6, 31, 0, 1, 12, 1, 20, 31, 16, 1, 0, 1, 6, 31, 4, 39, 6, 1, 16, 40, 6, 1, 0, 16, 6, 31, 64, 1, 36, 57, 64

Offset

1,9

Links

Antti Karttunen, Table of n, a(n) for n = 1..16384

Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537

Mathematica

Table[Mod[(5^n-1)/4, n], {n, 100}] (* Harvey P. Dale, Sep 20 2016 *)

Prog

(PARI) A094920(n) = lift(Mod((5^n-1)/4, n)); \\ Antti Karttunen, May 19 2020

Crossrefs

Cf. A003463.

Sequence in context: A013247 A013248 A013254 * A010668 A200601 A277755

Adjacent sequences: A094917 A094918 A094919 * A094921 A094922 A094923

Keyword

nonn

Author

N. J. A. Sloane, Jun 18 2004

Status

approved