login
A185660
Numbers k such that (k^3 + 11*k) +/-1 is a twin prime pair.
2
1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 13, 15, 16, 17, 20, 22, 37, 44, 46, 48, 52, 57, 61, 63, 68, 69, 70, 72, 81, 84, 86, 94, 96, 99, 101, 106, 108, 112, 117, 123, 124, 134, 138, 162, 178, 189, 191, 193, 200, 202, 206, 223, 224, 229, 260, 264, 271, 279, 282, 294, 297
OFFSET
1,2
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
Sequence in context: A133810 A176615 A291453 * A191839 A032959 A275945
KEYWORD
nonn
AUTHOR
G. L. Honaker, Jr., Feb 08 2011; proposed by Steve Homewood
STATUS
approved