A102601 a(n)= least k such that ((k+1)^n)*(k^n-1)-1 is prime.

2, 3, 3, 3, 5, 3, 29, 109, 9, 3, 35, 19, 5, 123, 31, 37, 189, 47, 97, 23, 113, 11, 509, 3, 33, 25, 55, 21, 85, 123, 35, 7, 211, 357, 239, 3, 1507, 33, 29, 3, 11, 53, 7, 15, 59, 797, 533, 167, 229, 17, 39, 137, 43, 733, 35, 273, 7, 235, 399, 63, 149, 189, 403, 151, 1021, 303

Offset

1,1

Links

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

Mathematica

f[n_] := Block[{k = 1}, While[ !PrimeQ[((k + 1)^n)*(k^n - 1) - 1], k += 2]; k]; Table[ f[n], {n, 66}] (* Robert G. Wilson v, Feb 10 2005 *)

Crossrefs

Sequence in context: A366660 A241686 A076559 * A092308 A205394 A213617

Adjacent sequences: A102598 A102599 A102600 * A102602 A102603 A102604

Keyword

nonn

Author

Pierre CAMI, Jan 29 2005

Extensions

More terms from Robert G. Wilson v, Feb 10 2005

Status

approved