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

Author

N. J. A. Sloane, Jun 18 2004

Keywords

• nonn

Links

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

Crossrefs

Cf. A003463.

Programs

Mathematica

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

PARI

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