A197955 Least positive k such that x^6 + k produces composite numbers for x=0..n and prime for x=n+1.

9, 14, 57, 24, 35, 160, 225, 56, 171, 186, 119, 144, 235, 74, 591, 120, 65, 390, 51, 26, 189, 204, 77, 696, 21, 308, 55, 528, 407, 1848, 519, 38, 3075, 48, 287, 544, 1155, 176, 141, 480, 377, 474, 1437, 656, 2041, 168, 203, 258, 2193, 50, 3069, 534, 611, 3276, 111

Offset

1,1

Comments

a(n) > A197944(n) iff A197944(n) is prime and a(n)=A197944(n) otherwise.

Links

Table of n, a(n) for n=1..55.

Mathematica

Table[k=1; While[!(Union[PrimeQ[Range[0, n]^6+k]]=={False} && PrimeQ[(n+1)^6+k]), k++]; k, {n, 55}]

Crossrefs

Cf. A197944.

Sequence in context: A272051 A272504 A346267 * A271814 A272418 A272155

Adjacent sequences: A197952 A197953 A197954 * A197956 A197957 A197958

Keyword

nonn

Author

Zak Seidov, Oct 19 2011

Status

approved