A179078 a(n)=((3^p - 3)/p) mod p where p is n-th prime

1, 2, 3, 4, 0, 11, 13, 16, 5, 16, 20, 17, 22, 6, 33, 16, 5, 39, 45, 25, 5, 4, 26, 72, 21, 53, 43, 80, 85, 12, 53, 94, 54, 135, 113, 132, 125, 32, 34, 163, 100, 147, 52, 61, 84, 46, 54, 80, 122, 103, 83, 43, 109, 87, 127, 125, 239, 129, 63, 98, 160, 223, 29, 82, 3, 68, 288, 322

Offset

1,2

Comments

a(n) = 0 where n=5 (p=11) and n=78940 (p=1006003) see A014127.

Links

Table of n, a(n) for n=1..68.

Mathematica

aa = {}; Do[AppendTo[aa, Mod[(3^Prime[n] - 3)/Prime[n], Prime[n]]], {n, 1, 100}]; aa (*Artur Jasinski*)

Crossrefs

Cf. A014127, A179077.

Sequence in context: A217101 A265516 A256295 * A256305 A031219 A346689

Adjacent sequences: A179075 A179076 A179077 * A179079 A179080 A179081

Keyword

nonn

Author

Artur Jasinski, Jun 28 2010

Status

approved