OFFSET
1,1
EXAMPLE
With n=2, n+15 (17), n^2+15 (19) and n^3+15 (23) are all prime.
MATHEMATICA
p = 15; Select[Range[2, 20000, 2], PrimeQ[p + #^3] && PrimeQ[p + #^2] && PrimeQ[p + #] &]
Select[Range[2, 8000, 2], AllTrue[#^Range[3]+15, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Nov 29 2018 *)
PROG
(PARI) isok(n) = isprime(n+15) && isprime(n^2 + 15) && isprime(n^3 + 15); \\ Michel Marcus, Dec 28 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Dec 27 2014
STATUS
approved