|
%I #13 Jun 12 2017 19:07:21
%S 3,4,5,7,8,10,14,16,17,19,22,23,26,29,35,40,43,52,56,59,61,64,68,71,
%T 73,77,79,80,82,91,92,101,103,107,112,113,119,121,133,140,143,145,149,
%U 152,155,157,163,164,166,169,170,175,178,190,191,194,196
%N Numbers n such that n^2 - 3n + 3 is prime.
%D M. Cerasoli, F. Eugeni and M. Protasi, Elementi di Matematica Discreta, Bologna 1988
%D Emanuele Munarini and Norma Zagaglia Salvi, Matematica Discreta,UTET, CittaStudiEdizioni, Milano 1997
%H Harvey P. Dale, <a href="/A089358/b089358.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A002384(n)+2.
%t Select[Range[200],PrimeQ[#^2-3#+3]&] (* _Harvey P. Dale_, Mar 23 2012 *)
%o (PARI) is(n)=isprime(n^2-3*n+3) \\ _Charles R Greathouse IV_, Jun 12 2017
%K easy,nonn
%O 1,1
%A _Giovanni Teofilatto_, Dec 27 2003
%E Corrected by Harvey P. Dale, Mar 23 2012
|
