|
%I #31 Apr 03 2023 10:36:12
%S 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,
%T 70,72,81,84,86,94,96,99,101,106,108,112,117,123,124,134,138,162,178,
%U 189,191,193,200,202,206,223,224,229,260,264,271,279,282,294,297
%N Numbers k such that (k^3 + 11*k) +/-1 is a twin prime pair.
%H G. C. Greubel, <a href="/A185660/b185660.txt">Table of n, a(n) for n = 1..5000</a>
%H <a href="https://t5k.org/curios/page.php?curio_id=23218">Prime curio for 829</a>
%e For k=9, the corresponding twin prime pair is {827, 829}.
%t Select[Range[300], PrimeQ[#^3 + 11# - 1] && PrimeQ[#^3 + 11# + 1] &]
%t 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 *)
%Y Cf. A000040, A001097.
%K nonn
%O 1,2
%A _G. L. Honaker, Jr._, Feb 08 2011; proposed by _Steve Homewood_
|
