OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
1 is in the sequence because (1st prime)^2-2*1=2, which is prime;
2 is in the sequence because (2nd prime)^2-2*2=5, which is prime.
MATHEMATICA
Select[Range[4000], PrimeQ[Prime[#]^2 - 2 #] &] (* Vincenzo Librandi, Apr 15 2014 *)
PROG
(PARI) isok(n) = isprime(prime(n)^2 - 2*n); \\ Michel Marcus, Apr 15 2014
(Magma) [n: n in [0..400] | IsPrime(NthPrime(n)^2-2*n)]; // Vincenzo Librandi, Apr 15 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Feb 19 2010
EXTENSIONS
More terms from R. J. Mathar, Mar 01 2010
STATUS
approved