OFFSET
1,1
COMMENTS
Subsequence of A062326.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
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.
MATHEMATICA
Select[Prime[Range[1500]], PrimeQ[#^2 - 2] && PrimeQ[#^2 - 2 # + 2] &] (* Harvey P. Dale, Apr 21 2011 *)
PROG
(Magma) [p: p in PrimesUpTo(9200) | IsPrime(p^2-2) and IsPrime(p^2-2*p+2)];
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Dec 31 2008
EXTENSIONS
Edited, corrected (257 inserted) and extended beyond a(13) by Klaus Brockhaus, Jan 01 2009
STATUS
approved