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
KEYWORD
nonn
AUTHOR
Pierre CAMI, Jan 29 2005
EXTENSIONS
More terms from Robert G. Wilson v, Feb 10 2005
STATUS
approved