OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
EXAMPLE
For k=9, the corresponding twin prime pair is {827, 829}.
MATHEMATICA
Select[Range[300], PrimeQ[#^3 + 11# - 1] && PrimeQ[#^3 + 11# + 1] &]
Select[Range[300], AllTrue[#^3+11#+{1, -1}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Nov 28 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
G. L. Honaker, Jr., Feb 08 2011; proposed by Steve Homewood
STATUS
approved