login
Least k such that x^6 + k produces composite numbers for x=1..n and prime for x=n+1.
2

%I #10 Aug 03 2014 14:01:34

%S 3,14,31,24,23,160,225,56,171,186,53,144,235,74,591,120,5,390,51,26,

%T 189,204,77,696,21,308,13,528,149,1848,519,38,2053,48,131,544,1155,

%U 176,141,480,83,474,1437,656,2041,168,203,258,2193,50,1249,534,11,3276,111

%N Least k such that x^6 + k produces composite numbers for x=1..n and prime for x=n+1.

%t Table[k = 0; While[! (Union[PrimeQ[Range[n]^6 + k]] == {False} && PrimeQ[(n + 1)^6 + k]), k++]; k, {n, 55}] (* _T. D. Noe_, Oct 19 2011 *)

%Y Cf. A197955.

%K nonn

%O 1,1

%A _Arkadiusz Wesolowski_, Oct 19 2011