A094923 (8^n-1)/7 mod n.

0, 1, 1, 1, 1, 3, 0, 1, 1, 9, 1, 9, 1, 7, 13, 9, 1, 9, 1, 5, 7, 9, 1, 9, 6, 9, 19, 21, 1, 9, 1, 9, 7, 9, 28, 9, 1, 9, 34, 25, 1, 21, 1, 13, 1, 9, 1, 9, 0, 39, 22, 13, 1, 27, 28, 49, 16, 9, 1, 45, 1, 9, 28, 9, 1, 27, 1, 41, 4, 49, 1, 9, 1, 9, 58, 53, 63, 9, 1, 25, 46, 9, 1, 21, 6, 9, 73, 65, 1, 9, 21, 33

Offset

1,6

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

Table[Mod[(8^n-1)/7, n], {n, 100}] (* Harvey P. Dale, Jul 30 2011 *)

Crossrefs

Sequence in context: A143624 A126308 A370040 * A331567 A303301 A160499

Adjacent sequences: A094920 A094921 A094922 * A094924 A094925 A094926

Keyword

nonn

Author

N. J. A. Sloane, Jun 18 2004

Status

approved