login
A102601
a(n)= least k such that ((k+1)^n)*(k^n-1)-1 is prime.
0
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
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
KEYWORD
nonn
AUTHOR
Pierre CAMI, Jan 29 2005
EXTENSIONS
More terms from Robert G. Wilson v, Feb 10 2005
STATUS
approved