OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)
MATHEMATICA
Select[Range[800], AllTrue[12#^2+{1, -1}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Aug 27 2014 *)
PROG
(PARI) for(i=1, 999, isprime(12*i^2+1) & isprime(12*i^2-1) & print1(i", "))
(Magma) [m:m in [1..740]| IsPrime(12*m^2-1) and IsPrime(12*m^2+1)]; // Marius A. Burtea, Jan 23 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Jan 15 2009
STATUS
approved