OFFSET
1,1
COMMENTS
All terms except 4 are divisible by 6. - Robert Israel, Dec 13 2017
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..5000
MAPLE
select(n -> isprime(n^2-13), 2*[$2..10^4]); # Robert Israel, Dec 13 2017
MATHEMATICA
Reap[m=4; Do[If[PrimeQ[m^2-13], Sow[m]]; m=m+2, {1000}]][[2, 1]]
Select[Range[800], PrimeQ[#^2-13]&] (* Harvey P. Dale, Mar 06 2023 *)
PROG
(PARI) isok(n) = isprime(n^2-13); \\ Michel Marcus, Dec 14 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Dec 13 2017
STATUS
approved