The OEIS is supported by the many generous donors to the OEIS Foundation.

Numbers k such that k^3 +- (k+5)^2 are primes.

1

`%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
`