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,6

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[(9^n-1)/8, n], {n, 90}] (* Harvey P. Dale, Dec 23 2023 *)

Prog

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

Crossrefs

Cf. A002452, A094918, A094920.

Sequence in context: A161739 A380496 A291574 * A056968 A340221 A213541

Adjacent sequences: A094921 A094922 A094923 * A094925 A094926 A094927

Keyword

nonn

Author

N. J. A. Sloane, Jun 18 2004

Status

approved