|
%I #9 Feb 28 2020 09:52:11
%S 36,114,174,264,426,444,810,894,900,2724,3876,4140,4386,4446,4686,
%T 4884,5910,5940,6240,6294,6534,6624,7044,7206,7314,7326,7470,8076,
%U 8676,9120,9216,9270,9546,9900,10926,11040,11934,12114,12510,14004,14034,14100
%N Numbers k such that k^3 +-7 are primes.
%H Daniel Starodubtsev, <a href="/A176685/b176685.txt">Table of n, a(n) for n = 1..10000</a>
%e 36 is in the sequence, because 36^3 - 7 = 46649 and 36^3 + 7 = 46663 are primes.
%t Select[Range[8! ],PrimeQ[ #^3-7]&&PrimeQ[ #^3+7]&]
%t Select[Range[15000],AllTrue[#^3+{7,-7},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jan 28 2020 *)
%Y Cf. A090121, A097698, A108701, A143904, A176681, A176682, A176683, A176684
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Apr 23 2010
|
