%I #20 Sep 22 2015 15:09:27
%S 3,7,43,157,4423,6163,19183,22651,26407,37057,113233,121453,143263,
%T 208393,292141,375157,412807,527803,590593,843643,981091,1041421,
%U 1193557,1246573,1441201,1514131,1905781,2023507,2397853,2453923,2548813,2626021,2864557
%N Primes of the form p^2 - p + 1 where p is prime.
%C Note that p^2 - p + 1 = p * phi(p) + 1 when p is prime.
%H Vincenzo Librandi, <a href="/A074268/b074268.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Table[p = Prime[n]; p*EulerPhi[p] + 1, {n, 270}], PrimeQ] (* _Arkadiusz Wesolowski_, Dec 13 2011 *)
%t Select[Table[p^2-p+1,{p,Prime[Range[300]]}],PrimeQ] (* _Harvey P. Dale_, Sep 22 2015 *)
%Y Cf. A065508 (values of p).
%K nonn,easy
%O 1,1
%A _Enoch Haga_, Jan 16 2004