|
%I #7 Oct 30 2018 10:31:02
%S 9,14,57,24,35,160,225,56,171,186,119,144,235,74,591,120,65,390,51,26,
%T 189,204,77,696,21,308,55,528,407,1848,519,38,3075,48,287,544,1155,
%U 176,141,480,377,474,1437,656,2041,168,203,258,2193,50,3069,534,611,3276,111
%N Least positive k such that x^6 + k produces composite numbers for x=0..n and prime for x=n+1.
%C a(n) > A197944(n) iff A197944(n) is prime and a(n)=A197944(n) otherwise.
%t Table[k=1; While[!(Union[PrimeQ[Range[0,n]^6+k]]=={False} && PrimeQ[(n+1)^6+k]), k++]; k, {n,55}]
%Y Cf. A197944.
%K nonn
%O 1,1
%A _Zak Seidov_, Oct 19 2011
|
