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

%I #7 Mar 29 2015 16:28:30

%S 2,3,3,3,5,3,29,109,9,3,35,19,5,123,31,37,189,47,97,23,113,11,509,3,

%T 33,25,55,21,85,123,35,7,211,357,239,3,1507,33,29,3,11,53,7,15,59,797,

%U 533,167,229,17,39,137,43,733,35,273,7,235,399,63,149,189,403,151,1021,303

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

%t 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 *)

%K nonn

%O 1,1

%A _Pierre CAMI_, Jan 29 2005

%E More terms from _Robert G. Wilson v_, Feb 10 2005