[go: up one dir, main page]

login
A197944
Least k such that x^6 + k produces composite numbers for x=1..n and prime for x=n+1.
2
3, 14, 31, 24, 23, 160, 225, 56, 171, 186, 53, 144, 235, 74, 591, 120, 5, 390, 51, 26, 189, 204, 77, 696, 21, 308, 13, 528, 149, 1848, 519, 38, 2053, 48, 131, 544, 1155, 176, 141, 480, 83, 474, 1437, 656, 2041, 168, 203, 258, 2193, 50, 1249, 534, 11, 3276, 111
OFFSET
1,1
MATHEMATICA
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 *)
CROSSREFS
Cf. A197955.
Sequence in context: A031049 A014696 A235137 * A071396 A032525 A294420
KEYWORD
nonn
AUTHOR
STATUS
approved