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
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Oct 19 2011
STATUS
approved