A094924 a(n) = (9^n-1)/8 mod n.

0, 0, 1, 0, 1, 4, 1, 0, 1, 0, 1, 4, 1, 10, 1, 0, 1, 10, 1, 0, 7, 10, 1, 16, 6, 10, 10, 8, 1, 10, 1, 0, 25, 10, 31, 28, 1, 10, 13, 0, 1, 28, 1, 28, 1, 10, 1, 16, 22, 0, 40, 40, 1, 10, 11, 24, 34, 10, 1, 40, 1, 10, 28, 0, 36, 34, 1, 4, 22, 50, 1, 64, 1, 10, 31, 60, 10, 52, 1, 0, 10, 10, 1, 28, 71

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. A002452, A094918, A094920.

Programs

Mathematica

Table[Mod[(9^n-1)/8,n],{n,90}] (* Harvey P. Dale, Dec 23 2023 *)

PARI

A094924(n) = lift(Mod((9^n-1)/8,n)); \\ Antti Karttunen, May 19 2020