%I #11 Sep 08 2022 08:45:39
%S 2,3,5,7,37,127,131,211,257,421,467,491,751,761,1307,1321,1367,1567,
%T 1861,2081,2087,2137,2287,2381,2647,2707,2837,2897,3221,3851,3911,
%U 3947,4957,5087,5501,5711,5857,6011,6217,6221,6361,6637,6911,8707,8941,9127
%N Primes p such that p^2-2 and p^2-2p+2 are also prime.
%C Subsequence of A062326.
%H Vincenzo Librandi, <a href="/A153014/b153014.txt">Table of n, a(n) for n = 1..1000</a>
%e For p = 2, p^2-2 = 2 and p^2-2p+2 = 2; for prime p = 491, p^2-2 = 241079 is prime and p^2-2p+2 = 240101 is prime.
%t Select[Prime[Range[1500]], PrimeQ[#^2 - 2] && PrimeQ[#^2 - 2 # + 2] &] (* _Harvey P. Dale_, Apr 21 2011 *)
%o (Magma) [p: p in PrimesUpTo(9200) | IsPrime(p^2-2) and IsPrime(p^2-2*p+2)];
%Y Cf. A062326 (primes p such that p^2-2 is also prime).
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Dec 31 2008
%E Edited, corrected (257 inserted) and extended beyond a(13) by _Klaus Brockhaus_, Jan 01 2009
|