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
Keywords
Examples
36 is in the sequence, because 36^3 - 7 = 46649 and 36^3 + 7 = 46663 are primes.
Links
- Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
Programs
-
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 *)