login
A176685
Numbers k such that k^3 +-7 are primes.
1
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
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 *)
KEYWORD
nonn
AUTHOR
STATUS
approved