A176685 Numbers k such that k^3 +-7 are primes.

36, 114, 174, 264, 426, 444, 810, 894, 900, 2724, 3876, 4140, 4386, 4446, 4686, 4884, 5910, 5940, 6240, 6294, 6534, 6624, 7044, 7206, 7314, 7326, 7470, 8076, 8676, 9120, 9216, 9270, 9546, 9900, 10926, 11040, 11934, 12114, 12510, 14004, 14034, 14100

Offset

1,1

Links

Daniel Starodubtsev, Table of n, a(n) for n = 1..10000

Example

36 is in the sequence, because 36^3 - 7 = 46649 and 36^3 + 7 = 46663 are primes.

Mathematica

Select[Range[8! ], PrimeQ[ #^3-7]&&PrimeQ[ #^3+7]&]
Select[Range[15000], AllTrue[#^3+{7, -7}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jan 28 2020 *)

Crossrefs

Cf. A090121, A097698, A108701, A143904, A176681, A176682, A176683, A176684

Sequence in context: A341046 A162940 A250426 * A199260 A033575 A044287

Adjacent sequences: A176682 A176683 A176684 * A176686 A176687 A176688

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Apr 23 2010

Status

approved