A185660 Numbers k such that (k^3 + 11*k) +/-1 is a twin prime pair.

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

Links

G. C. Greubel, Table of n, a(n) for n = 1..5000

Prime curio for 829

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

Cf. A000040, A001097.

Sequence in context: A133810 A176615 A291453 * A191839 A032959 A275945

Adjacent sequences: A185657 A185658 A185659 * A185661 A185662 A185663

Keyword

nonn

Author

G. L. Honaker, Jr., Feb 08 2011; proposed by Steve Homewood

Status

approved