OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
2 + 15 = 17 and 2^2 + 15 = 19 are both prime, so 2 is in the sequence.
MAPLE
select(t -> isprime(t+15) and isprime(t^2+15), [seq(i, i=2..1000, 2)]); # Robert Israel, May 07 2019
MATHEMATICA
p = 15; Select[Range[2, 1000, 2], PrimeQ[p + #^2] && PrimeQ[p + #] &]
Select[Range[2, 1000, 2], AllTrue[{#, #^2}+15, PrimeQ]&] (* Harvey P. Dale, Jun 08 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Dec 27 2014
STATUS
approved