|
%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
|
