|
%I #11 Aug 01 2023 17:08:02
%S 7,12,13,18,58,142,187,502,597,657,702,907,912,942,943,972,1057,1168,
%T 1248,1357,1453,1533,1663,1938,2013,2088,2272,2373,2478,2608,2848,
%U 2968,3003,3028,3108,3247,3423,3478,3583,3817,3927,3957,4132,4212,4632,4668
%N Numbers k such that k^3 +- (k+5)^2 are primes.
%H G. C. Greubel, <a href="/A178660/b178660.txt">Table of n, a(n) for n = 1..10000</a>
%e 7 is a term since: 7^3 +- 12^2 -> (199,487) which are primes.
%t Select[Range[8! ],PrimeQ[ #^3-(#+5)^2]&&PrimeQ[ #^3+(#+5)^2]&]
%t Select[Range[4700],AllTrue[#^3+{(#+5)^2,-(#+5)^2},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Mar 19 2018 *)
%Y Cf. A068501, A137475, A178659.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jun 01 2010
|
