OFFSET
1,1
COMMENTS
MATHEMATICA
Select[Table[n^2, {n, 100}], PrimeQ[#^2 - # - 1] &]
PROG
(PARI) list(lim)=my(v=List()); for(n=2, sqrtint(lim\1), if(isprime(n^2-n-1), listput(v, n))); Vec(v) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 13 2014
STATUS
approved