A180511 Fermat quotients for base 4: (4^(p - 1) - 1)/p, where p = prime(n).

5, 51, 585, 95325, 1290555, 252645135, 3616814565, 764877654105, 2484744621997515, 37191016277640225, 127631526564044465235, 29485995600356809139175, 449832863112420158030205

Offset: 2

Author

Jani Melik, Jan 20 2011

Keywords

• nonn

Crossrefs

Cf. A007663, A146211.

Programs

Maple

A180511:= n-> map (p-> (4^(p-1)-1)/p, ithprime(n)):
seq (A180511(n), n=2..20);  # Peter Luschny, Jan 21 2010

Mathematica

Table[(4^(Prime[n] - 1) - 1)/Prime[n], {n, 2, 20}] (* Alonso del Arte, Jan 20 2011 *)