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

Author

N. J. A. Sloane, Jun 18 2004

Keywords

• nonn

Links

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

Programs

Mathematica

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