OFFSET
1,1
REFERENCES
M. Cerasoli, F. Eugeni and M. Protasi, Elementi di Matematica Discreta, Bologna 1988
D. E. Knuth, "The Art of Computer Programming," Addison-Wesley, Reading, MA, Volume II, page 378.
Emanuele Munarini and Norma Zagaglia Salvi, Matematica Discreta,UTET, CittaStudiEdizioni, Milano 1997
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[300], PrimeQ[#^2 - # + 1] &] (* Vincenzo Librandi, Sep 28 2012 *)
PROG
(Magma) [n: n in [1..300] |IsPrime(n^2 - n + 1)]; // Vincenzo Librandi, Sep 28 2012
(PARI) is(n)=isprime(n^2-n+1) \\ Charles R Greathouse IV, Feb 16 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Robert G. Wilson v, Jul 05 2000
EXTENSIONS
More terms from David Wasserman, Sep 15 2005
STATUS
approved