[go: up one dir, main page]

login
A197955
Least positive k such that x^6 + k produces composite numbers for x=0..n and prime for x=n+1.
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.
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
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 19 2011
STATUS
approved